profile
Опубликовано 6 лет назад по предмету Информатика от Nusha007

Помогите пожалуйста!!!! Паскаль АВС В каждой строке двумерного массива поменять местами первый элемент и любой из максимальных. Использовать только циклы, без функция и т.п.

  1. Ответ
    Ответ дан ilyaKZ

    var a[1..5,1..5] of integer; b,i,j,l: integer;

    Begin

    // считываешь элементы массива. Сама справишься.

    For i:=1 to 5 do

          for j:=2 to 5 do

                if a[i,1]<a[i,j] then a[i,1]:=a[i,j];

    For i:=1 to 5 do begin

     for j:=1 to 5 do

        Write(a[i,j],' ');

       writeln;

     end;

    end.

Самые новые вопросы