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

Question

Анфия

23 сентября, 10:47

+4

Ответы (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.