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

@Swetic · Регистрация: 25.11.2012

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

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

@Puporev · 24.05.2013, 11:06

Pascal

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,s:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    if (j>i)and(a[i,j]>0) then s:=s+a[i,j];
    write(a[i,j]:4);
   end;
  writeln;
 end;
write('Сумма положительных выше главной диагонали=',s);
readln
end.

@Swetic · 24.05.2013, 12:34 **[ТС]**

Вы не могли бы исправить условие(19строка) , так как условие выше главной диагонали,вы же исключаете только первый столбик

@Puporev · 24.05.2013, 12:38

if (j>i) это не только 1 столбец, а все столбцы номер которых <=i исключаются.
Если ума нет, то запустите программу и проверьте, вместо того чтобы претензии выдвигать и сопли размазывать...

@Swetic 0 / 0 / 0 Регистрация: 25.11.2012 Сообщений: 17
		1
	Состаьте программу вычисления суммы тех положительных элементов массива a(n,n) 24.05.2013, 10:20. Показов 969. Ответов 3 Метки нет (Все метки) Состаьте программу вычисления суммы тех положительных элементов массива a(n,n),что расположены выше главной диагонали. 0

@Swetic 0 / 0 / 0 Регистрация: 25.11.2012 Сообщений: 17
	24.05.2013, 12:34 [ТС]	3
	Вы не могли бы исправить условие(19строка) , так как условие выше главной диагонали,вы же исключаете только первый столбик 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	24.05.2013, 12:38	4
	if (j>i) это не только 1 столбец, а все столбцы номер которых <=i исключаются. Если ума нет, то запустите программу и проверьте, вместо того чтобы претензии выдвигать и сопли размазывать... 1