Разность двух чисел

@PavelNesterov · Регистрация: 12.03.2014

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

Подскажите пожалуйста кусочек программы , внимание : Поиск наибольшей разности двух чисел, содержащихся в массиве. Без каких- либо процедур. Спасибо!

@Hagacure · 23.03.2014, 21:32

Найдите максимально и минимальное и отнимите

@just_freelance · 23.03.2014, 21:39

Pascal

var a: array[1..100] of integer;
i, j, min, max :integer;
begin
  write('Vvedite kolichestvo chisel: ');
  readln(j);
  write('Vvedite chisla: ');
  for i := 1 to j do
    read(a[i]);
  min := a[1];
  max := a[1];
  for i := 1 to j do
  begin
    if a[i] > max then
      max := a[i];
    if a[i] < min then
      min := a[i];
  end;
 
   writeln(max - min);
 
end.

@PavelNesterov · 23.03.2014, 21:40 **[ТС]**

Сообщение от Hagacure

Найдите максимально и минимальное и отнимите

Я попросил кусочек программы. В голове то я представляю себе это ясно. Спасибо!

Добавлено через 13 секунд

Сообщение от just_freelance

Pascal

var a: array[1..100] of integer;
i, j, min, max :integer;
begin
  write('Vvedite kolichestvo chisel: ');
  readln(j);
  write('Vvedite chisla: ');
  for i := 1 to j do
    read(a[i]);
  min := a[1];
  max := a[1];
  for i := 1 to j do
  begin
    if a[i] > max then
      max := a[i];
    if a[i] < min then
      min := a[i];
  end;
 
   writeln(max - min);
 
end.

Спасибо!!

@PavelNesterov 1 / 1 / 0 Регистрация: 12.03.2014 Сообщений: 37
		1
	Разность двух чисел 23.03.2014, 20:42. Показов 1792. Ответов 3 Метки нет (Все метки) Подскажите пожалуйста кусочек программы , внимание : Поиск наибольшей разности двух чисел, содержащихся в массиве. Без каких- либо процедур. Спасибо! 0

@Hagacure 26 / 26 / 9 Регистрация: 02.01.2011 Сообщений: 135 Записей в блоге: 1
	23.03.2014, 21:32	2
	Найдите максимально и минимальное и отнимите 0

	23.03.2014, 21:40