ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА Сформировать одномерный массив из 20 элементов (значения элементов задаются случайным образом). Вывести массива на экран. Найти среднее арифметическое элементов первой половины массива и сумму элемент...
ЛЮДИ, ПОМОГИТЕ, ПОЖАЛУЙСТА Сформировать одномерный массив из 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.
Не нашли ответ?
Похожие вопросы