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

@Orbit110 · Регистрация: 18.12.2015

Студворк — интернет-сервис помощи студентам

помогите пожалуйста с задачей
Ввести двумерный массив A 5×3 . Найти суммы индексов строк и столбцов четных элементов массива.

@Mazilo · 19.12.2015, 16:42

Orbit110,

Pascal

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.

@Orbit110 0 / 0 / 0 Регистрация: 18.12.2015 Сообщений: 8
		1
	Ввести двумерный массив A 5×3 . Найти суммы индексов строк и столбцов четных элементов массива 19.12.2015, 15:16. Показов 2762. Ответов 1 Метки нет (Все метки) помогите пожалуйста с задачей Ввести двумерный массив A 5×3 . Найти суммы индексов строк и столбцов четных элементов массива. 0

Опции темы

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

Решение