Question

ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА

Сформировать одномерный массив из 20 элементов (значения элементов задаются случайным образом). Вывести массива на экран. Найти среднее арифметическое элементов первой половины массива и сумму элементов второй половины массива.

паскаль массивы 

Answer 1

Program pr;
Var a:array[1..20] of integer;
    i,sum:integer;
    sr:real;
Begin
for i:=1 to 20 do a[i]:=random(100);
for i:=1 to 20 do Write(a[i],';');

sr:=0;
for i:=1 to 10 do sr:=sr+a[i];
sr:=sr/10;

sum:=0;
for i:=11 to 20 do sum:=sum+a[i];
Writeln;

Writeln('srednee=',sr);
Writeln('summa=',sum);
end.