Умножить на 2 каждый четный элемент матрицы А - Pascal

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

Помогите решить задачу на Паскале. Нужно каждый четный элемент матрицы удвоить

Код к задаче: «Умножить на 2 каждый четный элемент матрицы А - Pascal»

textual
var
    ar: Array[1..10, 1..10] Of ShortInt;
    i, j, n: Byte;
begin
    repeat
        Write('Input matrix range [1..10]: '); ReadLn(n);
    until (n > 0);
    Randomize; WriteLn('Original matrix:');
    for i := 1 to n do
    begin
        for j := 1 to n do
        begin
            ar[i,j] := -49 + Random(99);
            Write(ar[i,j]:4);
            if Not Odd(ar[i,j])
            then
                ar[i,j] := 2 * ar[i,j];
        end;
        WriteLn;
    end;
    WriteLn; WriteLn('Modified matrix:');
    for i := 1 to n do
    begin
        for j := 1 to n do
            Write(ar[i,j]:4);
        WriteLn;
    end;
    ReadLn;
end.

13   голосов, оценка 4.231 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы