Дан массив состоящий из 10 целых чисел, определить число элементов массива больше 20 и меньше 25
Program mass1;
var i,n:integer;
mass: array[1..10] of integer;
begin
for i:=1 to 10 do
begin
mass[i]:=random(100);
write(mass[i], );
end;
writeln(Элементов больше 20);
for i:=1 to 10 do
begin
if mass[i]>20 then write(mass[i], );
end;
writeln(Элементов меньше 25);
for i:=1 to 10 do
begin
if mass[i]<25 then write(mass[i], );
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
