Обработка двухмерных массивов

21.04.2010, 23:31. **Показов** 1014. **Ответов** 1

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

Дан массив {Cij}, i,j-целые, не больше 15 и 20 соответственно. Найти сумму положительных элементов имеющих нечётный индекс столбца.

@lopata · 22.04.2010, 00:13

Pascal

const n = 15;
m =20;
var a : array [1..n,1..m] of integer;
    i,j,summ : integer;
 
begin
Randomize;
for i:= 1 to n do begin
    for j := 1 to m do
        a[i,j]:= Trunc(Random*101)-50;
end;
summ:= 0;
for i:= 1 to n do begin
    for j := 1 to m do begin
        if (a[i,j]>0) and (j mod 2 <> 0) then
           summ := summ+a[i,j];
    end;
end;
WriteLn(summ);
Readln;
end.

Infarka
		1
	Обработка двухмерных массивов 21.04.2010, 23:31. Показов 1014. Ответов 1 Метки нет (Все метки) Дан массив {Cij}, i,j-целые, не больше 15 и 20 соответственно. Найти сумму положительных элементов имеющих нечётный индекс столбца.

Опции темы

Обработка двухмерных массивов

Решение