Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов - Pascal ABC

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

Как найти в паскале сумму не положительных элементов двумерного массива A [N, M ] c четным номером столбцов заполненного вещественными числами из отрезка [-50;50]

Код к задаче: «Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов - Pascal ABC»

textual
program ex;
const n = 3;
      m = 3;
var a:array[1..n,1..m]of real;
i,j:integer;
sum:real;
 
begin
randomize();
for i:=1 to n do 
  for j:=1 to m do
  begin
  a[i,j]:=random(101)-50;
  if (a[i,j] < 0) and (j mod 2 = 0) then
  sum := sum + a[i,j];
  end;
  
for i:=1 to n do 
  begin
    for j:=1 to m do
    write(a[i,j]:3);
  writeln();
  end;
 
writeln('Сумма не положительных элементов в четных столбцах = ', sum);
end.

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


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