Сделать в в заданном двумерном массиве поменять местами следующие два элемента: два последних отрицательных.

135

452

Посмотреть ответы 2

Ответы на вопрос:

СпудиМэн

Информатика

4,7(49 оценок)

Var i,j,ip,jp,ipp,jpp: integer; a: array[1..5,1..6]of integer; begin writeln('исходный массив: '); for i: =1 to 5 do begin for j: =1 to 6 do begin a[i,j]: =random(-5,5); write(a[i,j]: 3); if a[i,j]< 0 then begin ipp: =ip; jpp: =jp; ip: =i; jp: =j; end; end; writeln; end; i: =a[ipp,jpp]; a[ipp,jpp]: =a[ip,jp]; a[ip,jp]: =i; writeln('измененный массив: '); for i: =1 to 5 do begin for j: =1 to 6 do write(a[i,j]: 3); writeln end; end.