К четным элементам массива прибавить значение собственного индекса строки - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Ввести двумерный массив A N×M. К четным элементам массива прибавить значение собственного индекса строки. Массив вывести до и после преобразования.

Решение задачи: «К четным элементам массива прибавить значение собственного индекса строки»

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(10);
    end;
Writeln('Array A:');
For i:=1 to n do
    begin
    For j:=1 to m do Write(A[i,j]:4);
    Writeln;
    end;
For i:=1 to n do
    begin
    For j:=1 to m do
        begin
        If ((A[i,j] mod 2) = 0) then A[i,j]:=A[i,j]+i;
        end;
    end;
Writeln('New array A:');
For i:=1 to n do
    begin
    For j:=1 to m do Write(A[i,j]:4);
    Writeln;
    end;
Readln;
end.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы