Var a:array[1..15] of integer; i,k:integer; begin writeln('Исходный массив'); k:=0; for i:=1 to 15 do begin a[i]:=random(30) 10; write(a[i]:3); end; writeln; writeln('Числа кратные 3'); for i:=1 to 15 do if (a[i] mod 3 = 0) then begin write(a[i]:3); inc(k); end; writeln; write('Таких чисел - ',k); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
