Question

Розробіть програму, яка вставляє 7 цілих чисел з інтервалу [-5000..5000] в одновимірний масив. Програма виводить середнє число введених чисел, приймаючи їх абсолютне значення.

Приклад: 89, -123, 45, 196, 1204, 0, 112
Вихід: 252.714

Answer 1

Ответ:

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.