ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА Сформировать одномерный массив из 20 элементов (значения...

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.