Предмет: Информатика,
автор: Domolink
Написать программу паскаль! Дан массив из 20 целых чисел, определить среднее арифметическое этого массива
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Математика,
автор: nadezdakolmakova500
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: vladallaberdin0
Предмет: Геометрия,
автор: 23slava23
Предмет: Геометрия,
автор: Adelkaa