Сумма положительных и отрицательных элементов массива

@kasimov92 · Регистрация: 12.04.2010

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

Условие в картинке

@amsterdam22rus · 02.06.2010, 08:31

Pascal

j:=m
for i:=1 to n do
begin if a[i,j]>0 then pol:=pol+a[i,j];
if a[i,j]<0 then otr:=otr+a[i,j];
end;
write('Сумма отрицательных элементов =',otr,' Сумма положительных элементов=',pol);

Добавлено через 3 минуты

Pascal

randomize;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
a[i,j]:=10-random (20);
write(a[i,j]),' ');
end;

@kasimov92 1 / 1 / 0 Регистрация: 12.04.2010 Сообщений: 39
		1
	Сумма положительных и отрицательных элементов массива 02.06.2010, 08:09. Показов 1310. Ответов 1 Метки нет (Все метки) Условие в картинке Миниатюры 0

Опции темы

Сумма положительных и отрицательных элементов массива

Решение