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

@Ramishab · Регистрация: 01.10.2015

Author24 — интернет-сервис помощи студентам

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

@kot96 · 01.10.2015, 09:49

Pascal

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.

@Ramishab 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 1
		1
	Найти сумму не положительных элементов двумерного массива A [N, M ] c четными номерами столбцов 01.10.2015, 09:25. Показов 1451. Ответов 1 Метки нет (Все метки) Как найти в паскале сумму не положительных элементов двумерного массива A [N, M ] c четным номером столбцов заполненного вещественными числами из отрезка [-50;50] 0

	01.10.2015, 09:49

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

Решение