//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer; i, n, min, max, imax, imin: integer;
begin write('Число элементов в массиве ');readln(n); setlength(a, n); min := maxint;max := -maxint; for i := 0 to n - 1 do begin a[i] := random(101) - 50; if a[i] > max then begin max := a[i];imax := i; end; if a[i] < min then begin min := a[i];imin := i; end; write(a[i]:4); end; writeln; writeln('min = ',min,' max = ',max); //меняем местами max и min и выводим массив swap(a[imax], a[imin]); for i := 0 to n - 1 do write(a[i]:4); end.
Тестовое решение: Число элементов в массиве 10 -19 -14 -44 -3 -4 -46 -1 -39 13 32 min = -46 max = 32 -19 -14 -44 -3 -4 32 -1 -39 13 -46
Var a:array[1..100,1..100] of integer; N,M,i,j,min,kmin:integer; begin readln(N,M); min:=10000; kmin:=0; for i:=1 to N do begin writeln(); for j:=1 to M do begin a[i,j]:=random(50); write(a[i,j],' '); if min = a[i,j] then kmin:=kmin+1 else if min > a[i,j] then begin kmin:=1; min:=a[i,j]; end; end; end; writeln(); write(min,' ',kmin); readln(); end.
var
a: array of integer;
i, n, min, max, imax, imin: integer;
begin
write('Число элементов в массиве ');readln(n);
setlength(a, n);
min := maxint;max := -maxint;
for i := 0 to n - 1 do
begin
a[i] := random(101) - 50;
if a[i] > max then begin
max := a[i];imax := i;
end;
if a[i] < min then begin
min := a[i];imin := i;
end;
write(a[i]:4);
end;
writeln;
writeln('min = ',min,' max = ',max);
//меняем местами max и min и выводим массив
swap(a[imax], a[imin]);
for i := 0 to n - 1 do write(a[i]:4);
end.
Тестовое решение:
Число элементов в массиве 10
-19 -14 -44 -3 -4 -46 -1 -39 13 32
min = -46 max = 32
-19 -14 -44 -3 -4 32 -1 -39 13 -46