Составьте программу, которая заполняет массив а [1 ... 10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15

Question

Информатика

Лея

27 июня, 01:12

Составьте программу, которая заполняет массив а [1 ... 10] случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, значения которых больше 5 и меньше 15

+5

Ответы (1)

Знаете ответ на вопрос?

Матя · Answer 1

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.