Дан одномерный массив AN. Преобразуйте массив следующим образом; поменяйте местами наибольший и наименьший элементы массива

@Takedo2010 · Регистрация: 10.10.2013

Студворк — интернет-сервис помощи студентам

нужна помощь!))
*Дан одномерный массив AN. Преобразуйте массив следующим образом (дополнительные массивы использовать не разрешается): поменяйте местами наибольший и наименьший элементы массива.
Замечание. Выведите на экран исходный и полученный массивы.

@ildwine · 28.10.2013, 07:00

Pascal

var
  a : array[1..100] of integer;
  min, max, t : integer;
  imax, imin, i, n : byte;
begin
  randomize;
  min := 100;
  max := -100;
  repeat
    write('n = ');
    readln(n)
  until (n > 0) and (n <= 100);
  writeln('исходный массив:');
  for i := 1 to n do
  begin
    a[i] := random(50) - 25;
    write(a[i]:4);
    if a[i] <= min then
    begin
      min := a[i];
      imin := i
    end;
    if a[i] >= max then
    begin
      max := a[i];
      imax := i
    end
  end;
  t := a[imax];
  a[imax] := a[imin];
  a[imin] := t;
  writeln;
  writeln('преобразованный массив:'); 
  for i := 1 to n do
    write(a[i]:4);
  readln
end.

@Takedo2010 · 28.10.2013, 14:08 **[ТС]**

спасибо большое))))

@Takedo2010 0 / 0 / 0 Регистрация: 10.10.2013 Сообщений: 15
		1
	Дан одномерный массив AN. Преобразуйте массив следующим образом; поменяйте местами наибольший и наименьший элементы массива 28.10.2013, 02:08. Показов 1300. Ответов 2 Метки нет (Все метки) нужна помощь!)) *Дан одномерный массив AN. Преобразуйте массив следующим образом (дополнительные массивы использовать не разрешается): поменяйте местами наибольший и наименьший элементы массива. Замечание. Выведите на экран исходный и полученный массивы. 0

@Takedo2010 0 / 0 / 0 Регистрация: 10.10.2013 Сообщений: 15
	28.10.2013, 14:08 [ТС]	3
	спасибо большое)))) 0

Опции темы

Дан одномерный массив AN. Преобразуйте массив следующим образом; поменяйте местами наибольший и наименьший элементы массива

Решение