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

Question

Даруня

26 марта, 07:01

+3

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