составьте программу ввода с клавиатуры элементов массива a 1..10 случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, занчения которых больше 5 и мешьше 15.
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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
