В ПАСКАЛЕ.дан массив из 20 чисел.найти сумму первых десяти (1..10),произведение последних десяти (11..20) и среднее арифметическое этих результатов.
Const
n=20;
var
a:array[1..n]of integer;
p,s:real;
i:integer;
begin p:=1;{начальное значение р, чтобы при умножении произведение не было =0}
for i:=1 to n do
begin
a[i]:=random(20); {массив заполняется случайными числами [0;20)}
write(a[i]:4); {массив выводится на экран}
if i<=10 then {если номер элемента <=10}
s:=s+a[i] {то считаем сумму элементов}
else
p:=p*a[i]; {иначе, т.е если номер элемента >10 считаем произв ]
end;
writeln;
writeln(сумма = ,s:4:0, p= ,p:4:0) {выводим сумму и произвед на экран} ;
writeln(среднее = ,(p+s)/2); {выводим среднее}
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
