Написать программу паскаль! Дан массив из 20 целых чисел, определить среднее арифметическое этого массива
Написать программу паскаль! Дан массив из 20 целых чисел, определить среднее арифметическое этого массива
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы