паскаль. написать пограмму которая заполняет массив случайными числами от 1 до 10. в ряду 10 чисел. вот программа: var a: array [1..10] of integer; i:integer; begin randomize; for i:= 1 to 10 do begin a[i]:=random (11); write ( a[i]:4); end; end. Задание: дописать эту программу, чтобы она выдавала кол-во четных и нечетных примеров массива.
uses crt; var a: array [1..10] of integer; i,s,k:integer; begin clrscr; randomize; for i:= 1 to 10 do begin a[i]:=random (11); write ( a[i]:8); if a[i] mod 2 = 0 then s:=s 1 else k:=k 1; end; writeln('Кол-во четных = ',s); writeln('Кол-во нечетных = ',k); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
