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

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.

памятник представляет собой копию клавиатуры из  бетона  в масштабе 30: 1. состоит из 104 клавиш, сделанных из бетона весом от 100 до 500  кг, расположенных в раскладке  qwerty. клавиши расположены в углублениях с интервалом 15  см. общая площадь проекта 16  ×  4  м. поверхность клавиш плоская с рельефными обозначениями алфавита и функциональных символов, размещенных в том же порядке, что и на обычной компьютерной клавиатуре.

в июле 2016 года на клавише  end  установлена  мемориальная доска в честь  евгения зорина

Program dlksjijh; var   a: array[1..40] of integer;   i: integer; begin   randomize;   writeln('исходные данные: ');   for i : = 1 to 40 do   begin       a[i] : = random(21);       write(a[i], ' ');   end;   writeln;   writeln('преобрезованный массив: ');   for i : = 1 to 40 do   begin       if a[i] mod 2 = 0 then           a[i] : = round(a[i]/2)       else           a[i] : = a[i] * 3;       write(a[i], ' ');   end; end. имена операций - с прописной буквы, и, поскольку есть  то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел. у меня работает.