Информатика 10 класс(паскаль)
Элементы массива могут принимать значения от 150 до 200(рост учащихся). посчитать средний рост среди учащихся класса, которые попадут в школьную баскетбольную команду( только больше 180 см)
помогите пожалуйста
Var a, i, k: integer;
r: array of integer;
sr: Real;
begin
write(Введите количество учящихся в классе: );
readln(a);
setlength(r, a);
randomize;
k := 0;
sr := 0;
writeln(Рост учащихся:);
for i := 0 to a - 1 do
begin
r[i] := random(200 - 150 + 1) + 150;
write(r[i] + );
if r[i] > 180 then
begin
k := k + 1;
sr := sr + r[i];
end;
end;
writeln;
writeln(Из них в комманду попадут + k + человек.);
write(Их средний рост - + sr / k);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
