Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

В квадратной матрице найти сумму нечётных элементов

Ответ оставил Гость

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,i,j,sum:integer;

Begin
Writeln(Введите размер матрицы N*N);
Write(N = );readln(N);
if (N>1000) or (N<1)  then  
Writeln(Ошибка, указанные значения выходят за пределы матрицы)   else   
 Begin      
   Writeln(Введите элементы матрицы);      
   sum:=0;   
   for i:=1 to N do     
     for j:=1 to N do     
         Begin     
           readln(mas[i,j]);       
           if (mas[i,j] mod 2 <> 0)
                then sum:=sum+mas[i,j];     
          end;      

     Writeln();   
     Writeln(Исходная матрица);   
     for i:=1 to N do   
        Begin     
            for j:=1 to N do     
               Begin     
                  Write(mas[i,j], );     
               end;     
             Writeln();   
         end;         

     Writeln();   
     Writeln(Сумма нечетных элементов = ,sum);      

  end;

readln;
end.