Найти сумму всех четных строк и нечетных столбцов
Дана матрица размера 6 x б. Найти суммы элементов всех ее четных строк и нечетных столбцов.
Решение:
const Stroki = 6;
Stolb = 6;
var Matrix: array [1 .. Stroki, 1 .. Stolb] of integer;
i, j, SumStrok, SumStolb: integer;
BEGIN
SumStrok := 0;
SumStolb := 0;
for i := 1 to Stroki do
for j := 1 to Stolb do
Read(Matrix[i, j]);
for i := 1 to Stroki do
for j := 1 to Stolb do
begin
if (i mod 2) = 0 then
SumStrok := SumStrok + Matrix[i, j];
if (j mod 2) <> 0 then
SumStolb := SumStolb + Matrix[i, j];
end;
WriteLn('Сумма чётных строк=', SumStrok);
WriteLn('Сумма нечётных столбцов=', SumStolb);
ReadLn;
END.
|
| Категория: Массивы | Добавил: deespe (29.01.2011)
|
| Просмотров: 5229
| Рейтинг: 5.0/2 |
|
