Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номера строк у которых четные. Язык -Паскаль

Question

Дан двумерный массив размерностью 5*5. Вычислить сумму элементов, номера строк у которых четные. Язык -Паскаль

Никитос Борода Ученик (219), закрыт 13 лет назад

Answer 1

Ну и за каким гонять цикл для первой, третьей и пятой строк? Да еще по пять раз проверять для них четные они или нет? Если уж охота поизвращаться, то делайте это красиво

for i :=1 to 5 do {для всех строк}
if i mod 2 =0 then {если строка четная}
for j :=1 to 5 do S :=S+a[i,j]; {суммируем ее элементы}

А вообще для этого есть и другие циклы

i := 2; {первая четная строка}
while i <= 5 do begin
for j :=1 to 5 do S :=S+a[i,j]; {суммируем элементы четной строки}
i := i + 2; {следующая четная строка}
end;

Answer 2

EX_Gr!F Мыслитель (6247) 13 лет назад

Стучи в агент.

Answer 3

циклом пройдись и если строка четная- прибавляй..

Answer 4

program massiv;
var
i,j:integer;
a:array [1..5,1..5] of integer;
S: integer;

begin
S:=0;
writeln('VVedite massiv');
for i:=1 to 5 do
for j:=1 to 5 do
begin
read a[i,j];
end;

for i :=1 to 5 do
for j :=1 to 5 do
begin
if i mod 2 =0 then S :=S+a[i,j];
end;
writeln (S);
readln;
end.