Составьте программу вычисления суммы положительных элементов двумерного массива

@Эля11 · Регистрация: 21.01.2013

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

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

@Grizzz · 08.05.2013, 18:14

Pascal

uses crt;
const n=8;
m=9;
type matr= array [1..m,1..m] of integer;
Var a:matr;
    i,j,sum:integer;
Begin
clrscr;
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(81)-40;
    write(a[i,j]:4);
   end;
   writeln;
  end;
  
 for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if a[i,j]>0 then sum:=sum+a[i,j];
   end;
 end;
 writeln('Сумма положительных элементов матрицы  = ',sum);
 end.

@Эля11 1 / 1 / 0 Регистрация: 21.01.2013 Сообщений: 30
		1
	Составьте программу вычисления суммы положительных элементов двумерного массива 08.05.2013, 17:37. Показов 1525. Ответов 1 Метки нет (Все метки) Составьте программу вычисления суммы положительных элементов двумерного массива A(N,M). 0

Опции темы

Составьте программу вычисления суммы положительных элементов двумерного массива

Решение