Определить суму наибольшего и наименьшего элементов массива

@max145 · Регистрация: 03.12.2013

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

дан одномерный массив х который состоит из 15 элементов. определить суму наибольшего и наименьшего элементов массива

@ildwine · 09.12.2013, 07:07

Pascal

var
  x : array [1..15] of integer;
  i, max, min :integer;
begin
  randomize;
  max := -100;
  min := 100;
  for i := 1 to 15 do
  begin
    x[i] := random(20) - 10;
    write(x[i]:4);
    if x[i] >= max then max := x[i];
    if x[i] <= min then min := x[i]
  end;
  writeln;
  writeln('MAX = ', max, ' MIN = ', min);
  writeln('сумма: ', max + min);
  readln
end.

@max145 0 / 0 / 1 Регистрация: 03.12.2013 Сообщений: 25
		1
	Определить суму наибольшего и наименьшего элементов массива 08.12.2013, 23:44. Показов 1779. Ответов 1 Метки нет (Все метки) дан одномерный массив х который состоит из 15 элементов. определить суму наибольшего и наименьшего элементов массива 0

	09.12.2013, 07:07

Определить суму наибольшего и наименьшего элементов массива

Решение