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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.