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

212

428

Посмотреть ответы 2

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

veragerasimova3

Информатика

4,4(61 оценок)

Const n=10; var mas: array[1..10] of integer; i: integer; begin randomize; //ввод массива и его вывод на экран for i: =1 to n do begin mas[i]: =random(19)+1; write(mas[i]: 4); if (i=5) then writeln; end; //поиск чисел writeln; write('искомые числа: '); for i: =1 to n do if (mas[i]> 5) and (mas[i]< 15) then write (mas[i]: 4); end.