Var mas:array[1..10]of integer; i:integer; Begin write('Введите 10чисел: '); for i:=1 to 10 do readln(mas[i]); write('Четными являются: '); for i:=1 to 10 do if (mas[i] mod 2 = 0) then write(mas[i],' '); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
