Розробіть програму, яка вставляє 7 цілих чисел з інтервалу [-5000..5000] в одновимірний масив. Програма виводить середнє число введених чисел, приймаючи їх абсолютне значення.
Приклад: 89, -123, 45, 196, 1204, 0, 112
Вихід: 252.714
Приклад: 89, -123, 45, 196, 1204, 0, 112
Вихід: 252.714
More Questions From This User See All
Answers & Comments
Ответ:
var f: array[1..7] of integer;
i,sum:integer;
srednee:real;
begin
sum:=0;
randomize;
for i:=1 to 7 do
begin
f[i]:=random(-5000,5000);
write(f[i], ' ');
sum:=sum+f[i];
end;
srednee:= sum/7;
writeln('Srednee: ', srednee:3:3);
end.