Question

сделайте пожалуйста информационный Массив с рандомом
Рост ученика для команды 160-190
Рост учеников в классе от 130-200см
В классе 32 ученика

сделайте массив по примеру этого​

Answer 1

Ответ:

program z;

var

a: array [1..32] of integer;

i, k: integer;

begin

writeln('');

randomize;

for i:=1 to 32 do a[i]:=random(130,200);

for i:=1 to 32 do write(a[i],' ');

k:=0;

for i:=1 to 32 do if (a[i] >= 160) and (a[i] <= 190) then k:=k+1;

writeln ();

writeln(k);

end.

Объяснение:

a: array [1..32] of integer; - в классе 32 ученика

for i:=1 to 32 do a[i]:=random(130,200); - рост учеников в классе от 130 до 200 см

for i:=1 to 32 do if (a[i] >= 160) and (a[i] <= 190) then k:=k+1; - рост ученика для команды от 160 до 190 см (подсчитываем количество учеников подходящего роста)