Question

Написать программу на языке прлграммирования Pascal.
В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.

Answer 1

program pr_1;
var a:array [1..n] of integer;
i, c, n:integer;
begin
readln(n)
for i:=1 to n do
begin
a[i] := random(150, 180);
c := c + a[i];
end;
writeln(c / n);
end.

Answer 2

Только оформляй правильно ))

Answer 3

ты про пробелы?

Answer 4

просто немного сложно писать программы с телефона