Вывести на экран чётные столбцы массива 3×5. Двумерный массив

Program Zadachcka;

Const n=5; m=3;

Var A : array [1..n, 1..m] of integer;

i, j, s : integer;

begin

Randomize;

For i:=1 to n do

begin

For j:=1 to m do A[i,j]:=random(100);

end;

Writeln('Array A:');

For i:=1 to n do

begin

For j:=1 to m do Write(A[i,j]:4);

Writeln;

end;

s:=0;

For i:=1 to n do

begin

For j:=1 to m do

begin

If ((A[i,j] mod 2) = 0) then s:=s+i+j;

end;

end;

Writeln('S=',s);

Readln;

end.

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

1+3+5+7 это ничто иное как арифметическая прогрессия.
Есть несколько формул суммы членов прогрессии, но под этот тип задачи подойдёт такая: 

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

n - это сколько всего членов

и так, у нас получается
= 1 (в условии задачи сказано что первый подарок весит 1кг)
d = 2 (в условии сказано что следующий подарок увеличивается на 2, ничто иное как разность)
n = это переменная, она нам не известна, поэтому так и оставим.
- это сумма веса всех подарков, в примере используется слово "weight" что в переводе "вес", поэтому подставим это слово.

И теперь подставим что у нас имеется.
weight = 
weight =

В коде программу будет записано так
weight = ( ( 2+2*(n-1) ) / 2)*n

Проверим, например у нас 5 детей, значит надо 5 подарков, это
1+3+5+7+9 = 25
Проверим формулу
weight = ( ( 2+2*(5-1) ) / 2)*5
weight = ( ( 2+2*4 ) / 2)*5
weight = ( ( 2+8 ) / 2)*5
weight = ( 10 / 2)*5
weight = 5*5
weight = 25
Всё сходится.

Расписал подробно, чтобы всё было понятно
Так же этот вариант подойдёт для других таких типовых задач, а вариант Vladmor подойдёт только в некоторых случаях, будь внимателен(на)

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

1+3+5+7 это ничто иное как арифметическая прогрессия.
Есть несколько формул суммы членов прогрессии, но под этот тип задачи подойдёт такая: 

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

n - это сколько всего членов

и так, у нас получается
= 1 (в условии задачи сказано что первый подарок весит 1кг)
d = 2 (в условии сказано что следующий подарок увеличивается на 2, ничто иное как разность)
n = это переменная, она нам не известна, поэтому так и оставим.
- это сумма веса всех подарков, в примере используется слово "weight" что в переводе "вес", поэтому подставим это слово.

И теперь подставим что у нас имеется.
weight = 
weight =

В коде программу будет записано так
weight = ( ( 2+2*(n-1) ) / 2)*n

Проверим, например у нас 5 детей, значит надо 5 подарков, это
1+3+5+7+9 = 25
Проверим формулу
weight = ( ( 2+2*(5-1) ) / 2)*5
weight = ( ( 2+2*4 ) / 2)*5
weight = ( ( 2+8 ) / 2)*5
weight = ( 10 / 2)*5
weight = 5*5
weight = 25
Всё сходится.

Расписал подробно, чтобы всё было понятно
Так же этот вариант подойдёт для других таких типовых задач, а вариант Vladmor подойдёт только в некоторых случаях, будь внимателен(на)