Вот наполнение массива рандомом. Если нужно наполнение с клавиатуры, то вместо a[i,j]:=random(100)-50; необходимо поставить read(a[i,j]);
const n=3; m=4; var a:array[1..n,1..m] of integer; var i, j, count:integer; begin count:=0; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(100)-50; write(a[i,j]:3, ' '); end; writeln; end; for i:=1 to n do for j:=1 to m do begin if (a[i,j]<0) and (a[i,j] mod 2 <>0) then count:=count 1; end; writeln('Количество отрицательных нечетных элементов: ', count); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
