Артур рядом с Семеном.Семен рядом с Николаем.Николай рядом с Романом)))
program
zadagha_1;
var
a:
array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite
8 chisel');
for i:=1 to
8 do read(a[i]);
sum:=0;
for i:=1 to
8 do begin
if i mod 2
<> 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa
elementov c nechetnim N =', sum);
end.
program
zadagha_2;
var
b:
array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite
chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to
n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(a);
write
('elementi > dannogo chisla: ');
for i:=1 to
n do begin
if
b[i]>a then write (i:4);
end;
end.
program
zadacha_3;
var
a:
array[1..100] of integer;
i,n,k:
integer;
begin
n:=random(100);
for i:=1 to
n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(k);
writeln('v
massive chisly ',k, ' kratni: ');
for i:=1 to
n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.
1) С
2) D
3) C
4) C
5) фото
6) С
7) С
8) B
9) B
10) C
11) D
12) B
13) B
14) C
15) A
16) A
Var a: array[0..49] of Integer; sr:real;sum,i,n: integer;beginwriteln('Исходный массив');for i:=0 to 49 do begina[i]:=Random(300);write(a[i]:4);if a[i] mod 2 = 0 then begin sum:= sum + a[i]; n:= n +1; end;end;sr:= sum / n;writeln;writeln('Cреднее арифметическое значение четных ',sr);end.
1. Представление информации в компьютере, единицы измерения информации В ЭВМ применяется двоичная система счисления, т.е. все числа в компьютере представляются с помощью нулей и единиц, поэтому компьютер может обрабатывать только информацию, представленную в цифровой форме.
2. Принято называть системой счисления
3.• устройства ввода информации
• устройства обработки информации
• устройства хранения
• устройства вывода информации.
По другому: системный блок, монитор, клавиатура и мышь
4.частота. В герцах (Гц)