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

23.10.2009, 21:45. **Показов** 1521. **Ответов** 1

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

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

@meter · 23.10.2009, 22:04

Pascal

program geto;
var a:array [1..10,1..10] of integer;
s,i,j,m,n,x:integer;
begin
write('m=');
readln(m);
write('n=');
readln(n);
for i:=1 to m do
begin
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;end;
s:=0;
for i:=1 to m do 
for j:=1 to n do
if (a[i,j]>0) then s:=s+a[i,j];
writeln('s=',s);
end.

на сколько я понял это будет выглядеть так=)

slevin1708
		1
	Расчет суммы положительных элементов строки двумерного массива 23.10.2009, 21:45. Показов 1521. Ответов 1 Метки нет (Все метки) написать программу для расчета суммы положительных элементов строки двумерного массива, номер вводит пользователь.

Опции темы

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

Решение