Составьте программу вычисления суммы положительных элементов матрицы A(N, N)

@Alastor · Регистрация: 09.10.2013

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

Составьте программу вычисления суммы положительных элементов матрицы A(N, N).

@ildwine · 08.11.2013, 19:16

Pascal

const n = 4;
var
  a : array[1..n, 1..n] of integer;
  i, j : byte;
  s : integer;
begin
  s := 0;
  randomize;
  writeln('матрица');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i,j] := random(10) - 5;
      write(a[i,j]:4);
      if a[i,j] > 0 then s := s + a[i,j]
    end;
    writeln
  end;
  writeln('сумма положительных: ', s)
end.

@Alastor 0 / 0 / 0 Регистрация: 09.10.2013 Сообщений: 35
		1
	Составьте программу вычисления суммы положительных элементов матрицы A(N, N) 08.11.2013, 19:06. Показов 6551. Ответов 1 Метки нет (Все метки) Составьте программу вычисления суммы положительных элементов матрицы A(N, N). 0

	08.11.2013, 19:16

Опции темы

Составьте программу вычисления суммы положительных элементов матрицы A(N, N)

Решение