Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами - Turbo Pascal

Формулировка задачи:

Задача: Дан массив 4х4 из целых чисел. Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами. Написать две программы-решения с подпрограммами и без. Помогите пожалуйста

Код к задаче: «Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами - Turbo Pascal»

textual
const
  n = 4;
 
var
  x: array [1..n, 1..n] of integer;
  i, j: byte;
  a, s: integer;
 
begin
  Randomize;
  Writeln('Матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x[i, j] := Random(11) - 5;
      Write(x[i, j]:4);
    end;
    Writeln
  end;
  Write('Введите A: ');
  Readln(a);
  for i := 1 to n do
    for j := 1 to n do
      if (Odd(j)) and (x[i, j] = a) then
        s := s + x[i, j];
  Writeln('Сумма = ', s);
  Readln
end.

10   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ