M@rgo

Всем привет!!!Нужна помощь!!!!! Проверте,пожалуйста, задачку и нужно ее объяснение!!!! очень нужно!!!!!...пожалуйста!!!!!

№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.

M@rgo

о-о-о-о Я Нашла ошибку:

Вместо
Код:

while i<=n do

нужно
Код:

while i<=m do

потому что n - это количество столбцов, а вам нужно сравнивать с количеством строк.

Vladimir_S

Раздвоение личности?

M@rgo

действительно.....хотела написать НАМ, а получилось ВАМ

AlexZir

Разница несущественная

__________________
Убить всех человеков!