Дан двумерный массив [4..7]. Hайти количество и сумму квадpатов положительных элементов массива, имеющих четные номера в строках

[Oraner]

program;
...
...
...
end.



Дан двумерный массив [4..7]. Hайти количество и сумму квадpатов положительных элементов массива, имеющих четные номера в строках.


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[Smitt&Wesson]

Составил и чё?

[Oraner]

ну так напиши её - ЧЕЛОВЕК - загадка)

[Stilet]

for i:=1 to 4 do begin
 for j:=1 to 7 do begin
  if (a[i,j]>0)and(odd(i)) then begin
   inc(Count); Summ:=Summ+sqr(a[i,j]);
  end;
 end;
end;

Где
Count:Integer
a - тот самый массив
Summ имеет тип согласно типу массива.