Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15
Ответы
Ответ дал:
0
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(20)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to 10 do
if (a[i]>5) and (a[i]<15) then write (a[i],' ');
readln;
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад