Написать программу паскаль! Дан массив из 20 целых чисел, определить среднее арифметическое этого массива

Question

Конрад

30 ноября, 21:53

+5

Ответы (1)

Знаешь ответ?

Леонтина · Answer 1

Var a: array [1 ... 20] of integer; i, s:integer;

Begin

For i:=1 to 20 do begin

read (a[i]); s:=s+a[i];

end;

Writeln (s/20);

readln;

end.