Всем привет!!!Нужна помощь!!!!! Проверте,пожалуйста, задачку и нужно ее объяснение!!!! очень нужно!!!!!...пожалуйста!!!!!
№22
Дан массив размера M*N. Для каждого столбца матрицы с четным номером (2,4,…) найти сумму его элементов.
Объявление переменных:
const nmax=10;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j:byte;
s:integer;
begin
randomize;
repeat
write('kol-vo strok ot 2 do ',nmax,' m=>'); readln(m);
until m in [2..nmax];
repeat
write('kol-vo stolbcov ot 2 do ',nmax,' n=>');readln(n);
until n in [2..nmax];
writeln('ishodnaya matrica');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
создаем цикл i=2 т.к. мы будем учитывать только четные столбцы, поэтому похоже мы к i прибавляем 2,чтоб работать с ними..s(сумма) - начальное значение 0. И в цикле считаем и выводим значение суммы элемента каждого столбца:
i:=2;
while i<=n do
begin
s:=0;
for j:=1 to n do
s:=s+a[i,j];
writeln('summa v stroke ',i,' = ',s);
i:=i+2;
end;
readln;
end.