<формирование массива 'a' если он не задан, как константа>
sum:=0;
for i:=1 to 4 do
for j:=1 to 5 do
if (i+j) mod 2 <> 0 then sum:=sum + a[i,j];
writeln(sum);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Паскаль. Дан двумерный массив, размерностью 4х5. Найти количество элементов массива, сумма индексов которых четное число
<формирование массива 'a' если он не задан, как константа>
sum:=0;
for i:=1 to 4 do
for j:=1 to 5 do
if (i+j) mod 2 <> 0 then sum:=sum + a[i,j];
writeln(sum);
end.