Ввести матрицу. Найти сумму четных элементов матрицы. Если она отрицательна, то заменить...

Question

Ввести матрицу. Найти сумму четных элементов матрицы. Если она отрицательна, то
заменить элементы четных столбцов матрицы на 1, в ином случае нечетных столбцов
на -1. Матрицу распечатать

Answer 1

Не самое лучшее решение, но вот:

const
    n = 2;
    k = 2;
var
  i,j,s:integer;
  a:array[1..n,1..k] of integer;
begin
    s:=0;
  for i:=1 to n do
    for j:=1 to k do
    begin
     Writeln('Введите a[',i,',',j,']:');
     readln(a[i,j]);
     if a[i,j] mod 2=0 then s:=s+a[i,j];
    end;
  if s<0 then<br>    for i:=1 to n do
     for j:=1 to k do
      if j mod 2=0 then
       a[i,j]:=1;
  if s>=0 then
    for i:=1 to n do
     for j:=1 to k do
      if j mod 2=0 then
       a[i,j]:=-1;
 for i:=1 to n do
   begin
     for j:=1 to k do
   write('a[':4,i,',',j,']=',a[i,j]);
   writeln;
   end;
end.