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

Question

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

Comments

У Вас условие не по-русски написано. Видимо, нужно определить КОЛИЧЕСТВО элементов массива, значение которых больше 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], ' ');<br>end;
end.

Comments

Можно забить вручную, убрать mass[i]:=random(100); а поставить readln(mass[i]);