Дан двумерный числовой массив A(n,n).Найти сумму положительных элементов массива стоящих на его главной диагонали.

@Инно4ка · Регистрация: 03.02.2012

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

@Pacan1 · 04.04.2012, 14:11

Pascal

uses crt;
const n=5;
      var
      a:array[1..100,1..100] of integer;
   i,j,d,sum:integer;
   begin
   randomize;
   for i:=1 to n do begin
   for j:=1 to n do begin
   a[i,j]:=random(30)-15;
   end;
   end;
   for i:=1 to n do begin
   writeln;
   for j:=1 to n do begin
write(a[i,j]:4);
   end;
   end;
   readln;
sum:=0;
for i:=1 to n do
if a[i,i]>0 then suM:=sum+a[i,i];
writeln;
Writeln(sum);
readln
       end.

@Инно4ка 0 / 0 / 0 Регистрация: 03.02.2012 Сообщений: 24
		1
	Дан двумерный числовой массив A(n,n).Найти сумму положительных элементов массива стоящих на его главной диагонали. 04.04.2012, 13:13. Показов 1886. Ответов 1 Метки нет (Все метки) Дан двумерный числовой массив A(n,n).Найти сумму положительных элементов массива стоящих на его главной диагонали. 0

Опции темы

Дан двумерный числовой массив A(n,n).Найти сумму положительных элементов массива стоящих на его главной диагонали.

Решение