Создать двумерный массив размером 5:5. Случайным образом интервал (-300;300). В 3-ем столбце найти количество положительных элементов. Заменить все четные элементы на максимальные. ПОМОГИТЕЕЕЕ!!!!!!!!!!!
const n=5; var a:array[1..n,1..n] of integer; i,j,k,m:integer; begin for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(599)-299; write(a[i,j]:5) end; writeln end; writeln; for i:=1 to n do if a[i,3]>0 then k:=k 1; if k>0 then writeln('В 3-ем столбце количество положительных элементов равно: ',k) else writeln('В В 3-ем столбце нет положительных элементов'); writeln; m:=a[1,1]; for i:=1 to n do for j:=1 to n do if a[i,j]>m then m:=a[i,j]; for i:=1 to n do begin for j:=1 to n do begin if a[i,j] mod 2 = 0 then a[i,j]:=m; write(a[i,j]:5) end; writeln end; writeln; end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
