Поменять местами МАКС И МИН

@Aleshh · Регистрация: 15.01.2017

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

Поменять местами МАХ и МИН элементы и найти их среднее арифметическое.

@Hitoku · 13.03.2017, 13:18

В массиве, в матрице?

@Aleshh · 13.03.2017, 13:20 **[ТС]**

В массиве.

@Hitoku · 13.03.2017, 13:25

Pascal

var
  a:array[1..100] of integer;
  n,i,max,min,imax,imin,c:integer;
begin
  randomize;
  max:=-50; min:=50; imax:=1; imin:=1;
  write('N = '); readln(n);
  write('Массив: ');
  for i:=1 to n do begin
    a[i]:=-50+random(100);
    write(a[i],' ');
    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;
  writeln; writeln('max = ',max,' [',imax,']; min = ',min,' [',imin,']');
  writeln('Среднее арифметическое = ',(max+min)/2);
  c:=a[imin];
  a[imin]:=a[imax];
  a[imax]:=c;
  write('Преобразованный массив: ');
  for i:=1 to n do write(a[i],' ');
end.

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84
		1
	Поменять местами МАКС И МИН 13.03.2017, 13:17. Показов 2709. Ответов 3 Метки нет (Все метки) Поменять местами МАХ и МИН элементы и найти их среднее арифметическое. 0

@Hitoku 1755 / 1347 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	13.03.2017, 13:18	2
	В массиве, в матрице? 0

@Aleshh 0 / 0 / 0 Регистрация: 15.01.2017 Сообщений: 84
	13.03.2017, 13:20 [ТС]	3
	В массиве. 0

	13.03.2017, 13:25

Поменять местами МАКС И МИН

Решение