Ввести двумерный массив A 5×3 . Найти суммы индексов строк и столбцов четных элементов массива - Pascal ABC
Формулировка задачи:
помогите пожалуйста с задачей
Ввести двумерный массив A 5×3 . Найти суммы индексов строк и столбцов четных элементов массива.
Решение задачи: «Ввести двумерный массив A 5×3 . Найти суммы индексов строк и столбцов четных элементов массива»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д