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

В квадратной матрице найти сумму нечётных элементов
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы