Сделать так чтобы элементы массива вводил я, а не программа выдавала их рандомно

@oleg20132110 · Регистрация: 06.12.2014

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

Ввести двумерный массив A_N×M. Каждую вторую строку в массиве
заменить остатками от деления её элементов на 2. Массив вывести до и после
преобразования. И еще число строк и массива ввести надо самому,а то программа их тоже сама выдает

Pascal

Program lab7;
const
    n=5;
    m=5;
var a:array[1..n,1..m] of integer;
    i,j:integer;
begin
    cls;
    randomize;
    writeln('Исходный массив:');
    for i:=1 to n do
        for j:=1 to m do
        begin
            a[i,j]:=random(50)+1;
            write(a[i,j]:3);
            if j=m then writeln;
        end;
    for i:=1 to n do
        for j:=1 to m do
            if i mod 2 = 0 then
                a[i,j]:=a[i,j] mod 2;
    writeln('Полученный массив:');
    for i:=1 to n do
        for j:=1 to m do
            begin
                write(a[i,j]:3);
                if j=m then writeln;
            end;
    readln;
end.

@ZX Spectrum-128 · 18.12.2014, 11:40

строки 14-16 заменить на

Pascal

1	readln(a[i,j]);

Опции темы