Question

Дан массив состоящий из 10 целых чисел, определить число элементов массива больше 20 и меньше 25

Answer 1

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.