ИСПРАВЛЕНО --- Uses crt; {описание переменных} var a,b,c: array [1..20] of integer; x,sum:integer; begin sum:=0; {обнуляем сумму} for x:=1 to 20 do {включаем цикл ввода массивов} begin write('a[',x,']:'); {вывод текста на экран} readln(a[x]); {ввод массива А} write('b[',x,']:'); {вывод текста на экран} readln(b[x]); {ввод массива В} c[x]:=a[x]+b[x]; {формируем массив С} if x mod 2=0 then sum:=sum+c[x]; end; writeln; {переводим указатель на новую строку} for x:=1 to 20 do {цикл вывода массива С} writeln('c[',x,']:',c[x]); {вывод текста на экран} writeln('sum=',sum); {сумма четных элементов массива С} end. --- текст в фигурных скобках удалять не обязательно, он на код не влияет.
Const N = 15; Var A:array[1..N] of integer; i,Kc,Kn,Sn:integer; Begin Kc:=0; Sn:=0; Kn:=0; Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(' ',A[i]); if A[i] mod 2 = 0 then Kc:=Kc+1; if A[i] mod 2 <> 0 then Begin Sn:=Sn+A[i]; Kn:=Kn+1; End; if A[i]>0 then A[i]:=0; End; WriteLn; WriteLn('Количество чётных: ',Kc); WriteLn('Среднее арифметическое нечётных: ',Sn/Kn); Write('Новый массив:'); For i:= 1 to N do Write(' ',A[i]) End.
var i: integer;
a:real;
begin
randomize;
for i:=1 to 10 do
begin
a:=random(1,100);
writeln(a);
end;
end.