Информатика 10 класс(паскаль) Элементы массива могут принимать значения от 150 до 200(рост учащихся). посчитать средний рост среди учащихся класса, которые попадут в школьную баскетбольную команду( только больше 180 см) помогит...
Информатика 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.
Не нашли ответ?
Похожие вопросы