ПОМОГИТЕ ПОЗЯЯЛУЙСТА 50 БАЛЛОВ pascal abc net Дан двумерный массив 5 на 7 ,заполненный случайным образом . Найти наименьшие и наибольшие элементы двумерного массива и поменять их местами
var a: array [1..5, 1..7] of integer; i,j,max,min: integer; begin for i:=1 to 5 do for j:=1 to 7 do A[i,j]:=random(100); max:=-1; min:=101; for i:=1 to 5 do begin for j:=1 to 7 do write(A[i,j]:5); writeln(); end; for i:=1 to 5 do for j:=1 to 7 do if A[i,j]>max then max:=A[i,j]; for i:=1 to 5 do for j:=1 to 7 do if A[i,j]
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
