Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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

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

Ответ оставил Гость

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.