Массив из 12 элементов от 150 до 190 ввести случайным образом с помощью random и:
1)определить есть ли хотя бы 1 ученик, рост которого больше 180 см?
2)Определить сколько учеников в классе имеют рост меньше 160 см?
это 2 разные задачи...
Program n;
var
m: array[1..12] of integer;
i,k: integer;
begin
randomize;
k:=0;
for i:=1 to 12 do begin
m[i]:=random(41)+150; write(m[i], );
if m[i]>180 then k:=k+1;
end; writeln;
if k>0 then writeln(Такой ученик есть) else writeln(Такого ученика нет);
end.
program n;
var
m: array[1..12] of integer;
i,k: integer;
begin
randomize;
k:=0;
for i:=1 to 12 do begin
m[i]:=random(41)+150; write(m[i], );
if m[i]<160 then k:=k+1;
end; writeln;
if k>0 then writeln(k, ученик(ов/а) имеют рост меньше 160) else writeln(Учеников, рост которых меньше 160, нет);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
