Помогите пожалуйста!!!

+ 0 -

Fisa888Fisa

12 июня 2013 г., 8:47:57 (10 лет назад)

{#1}
const
  m = 30;

var
  i, n, imin, imax, pmin, pmax: integer;
  a: array[1..m] of integer;

begin
  Randomize;
  Write('Введите число элементов (максимум 30): ');
  Readln(n);
  imin := 1000;
  imax := -1000;
  Writeln('Исходные данные');
  for i := 1 to n do
  begin
    a[i] := Random(90) - 45;
    write(a[i]:4);
    if imin > a[i] then
    begin
      imin := a[i];
      pmin := i
    end
    else if imax < a[i] then
    begin
      imax := a[i];
      pmax := i
    end
  end;
  Writeln;
  a[pmax] := imin;
  a[pmin] := imax;
  Writeln('Результат');
  for i := 1 to n do
    Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Введите число элементов (максимум 30): 15
Исходные данные
 -11  44  22 -42 -25 -38  21   4 -11  32   3  38 -24  28  16
Результат
 -11 -42  22  44 -25 -38  21   4 -11  32   3  38 -24  28  16
**********************************************************************
{#2}
const
  m = 30;

var
  i, j, n, imin, imax, nmin, nmax: integer;
  a, b: array[1..m] of integer;
  pmin, pmax: array[1..m] of integer;

begin
  Randomize;
  Write('Введите число элементов (максимум 30): ');
  Readln(n);
  imin := 1000;
  imax := -1000;
  nmin := 0;
  nmax := 0;
  Writeln('Исходные данные');
  for i := 1 to n do
  begin
    a[i] := Random(7);
    Write(a[i]:2);
    if imin = a[i] then
    begin
      nmin := nmin + 1;
      pmin[nmin] := i
    end
    else if imin > a[i] then
    begin
      imin := a[i];
      nmin := 1;
      pmin[nmin] := i
    end;
    if imax = a[i] then
    begin
      nmax := nmax + 1;
      pmax[nmax] := i
    end
    else if imax < a[i] then
    begin
      imax := a[i];
      nmax := 1;
      pmax[nmax] := i
    end;
  end;
  Writeln;
  Writeln('Результаты');
  Write('Минимальные элементы (', imin, '): ');
  for i := 1 to nmin do
    Write(pmin[i]:3);
  Writeln;
  Write('Максимальные элементы (', imax, '): ');
  for i := 1 to nmax do
    Write(pmax[i]:3);
  Writeln;
  Write('Сформированный массив: ');
  j := 0;
  for i := pmin[nmin] + 1 to n do
  begin
    j := j + 1;
    b[j] := a[i];
    Write(b[j]:3)
  end;
  Writeln
end.

Тестовое решение:
Введите число элементов (максимум 30): 30
Исходные данные
 3 3 4 2 5 3 2 5 0 6 6 4 6 5 0 0 6 0 0 1 0 5 6 0 4 5 1 4 3 4
Результаты
Минимальные элементы (0):   9 15 16 18 19 21 24
Максимальные элементы (6):  10 11 13 17 23
Сформированный массив:   4  5  1  4  3  4