Дан массив состоящий из 10 целых чисел, определить число элементов массива больше 20 и меньше 25
Дан массив состоящий из 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.
Не нашли ответ?
Похожие вопросы