Массив. Поменять местами наибольший и наименьший элементы массива

10.05.2012, 18:51. **Показов** 17223. **Ответов** 1

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

Дан массив Z(5)
поменять местами наибольший и наименьший элементы этого массива. вывести полученный массив Z

@kloks · 10.05.2012, 19:01

Pascal

program LeHb;
const n = 5;
var Z : array[1..n] of integer;
     i, max, min, tmp : integer;
begin
  for i := 1 to n do
    readln(Z[i]);
  min := 1;
  max := 1;
  for i := 1 to n do
  begin
    if Z[i] > Z[max] then
      max := i;
    if Z[i] < Z[min] then
      min := i;
  end;
  tmp := Z[max];
  Z[max] := Z[min];
  Z[min] := tmp;
  for i := 1 to n do
    writeln(Z[i]);
  readln;
end.

Ralinochka
		1
	Массив. Поменять местами наибольший и наименьший элементы массива 10.05.2012, 18:51. Показов 17223. Ответов 1 Метки нет (Все метки) Дан массив Z(5) поменять местами наибольший и наименьший элементы этого массива. вывести полученный массив Z

Опции темы

Массив. Поменять местами наибольший и наименьший элементы массива

Решение