Предмет: Информатика,
автор: Matvey2218
Дан массив из 50 целых чисел. Найти среднее арифметическое его элементов.
Ответы
Автор ответа:
0
Паскаль:
var i, s : integer;
n: real;
begin
n := 0;
for i:= 1 to 50 do begin
readln(s);
n:= n + s;
end;
n:= n / 50;
end.
var i, s : integer;
n: real;
begin
n := 0;
for i:= 1 to 50 do begin
readln(s);
n:= n + s;
end;
n:= n / 50;
end.
Автор ответа:
0
Если n надо вывести - writeln(n) в конце
Интересные вопросы
Предмет: Экономика,
автор: MonsterMusic
Предмет: Математика,
автор: hasan41
Предмет: Физика,
автор: Аноним
Предмет: Математика,
автор: Астерида
Предмет: Биология,
автор: 13konek