Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а) наибольшее значение б) наименьшее значение

@Alexti · Регистрация: 16.03.2011

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

Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет:
а) наибольшее значение
б) наименьшее значение
Помогите пожалуйста

@Puporev · 17.08.2011, 20:37

Если можно использовать массивы, то так.

Pascal

uses crt;
const n=5;
var a:array[1..n] of integer;
    i,j,x1,x2,x3,x4,mn,mx:integer;
begin
writeln('Введите ',n,' различных целых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
x1:=a[1];x2:=a[2];mx:=abs(a[1]-a[2]);
x3:=a[1];x4:=a[2];mn:=abs(a[1]-a[2]);
for i:=1 to n-1 do
for j:=i+1 to n do
 begin
  if abs(a[i]-a[j])>mx then
   begin
    mx:=abs(a[i]-a[j]);
    x1:=a[i];
    x2:=a[j];
   end;
  if abs(a[i]-a[j])<mn then
   begin
    mn:=abs(a[i]-a[j]);
    x3:=a[i];
    x4:=a[j];
   end;
 end;
writeln('Модуль разности максимальный у чисел ',x1,' и ',x2,'=',mx);
writeln('Модуль разности минимальный у чисел ',x3,' и ',x4,'=',mn);
end.

@Alexti 0 / 0 / 0 Регистрация: 16.03.2011 Сообщений: 10
		1
	Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а) наибольшее значение б) наименьшее значение 17.08.2011, 19:08. Показов 7427. Ответов 1 Метки нет (Все метки) Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а) наибольшее значение б) наименьшее значение Помогите пожалуйста 0

Опции темы

Даны пять различных целых чисел. Найти среди них два числа, модуль разности которых имеет: а) наибольшее значение б) наименьшее значение

Решение