Сила
4 год назад
Написать программу на языке прлграммирования Pascal.В компьютер вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся класса.
ОТВЕТЫ
Даниела
Oct 24, 2020
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.
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.
351
Смежные вопросы:
