Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их разность

@Succous · Регистрация: 14.06.2012

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

Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их разность.

Пример:
Ряд: 1 -2 87 -40
Минимальное: -4
Максимальное: 8
Разность: 12
Заранее благодарю.

@Zhexon · 31.01.2013, 11:23

Pascal

var
  i,min,max : integer;
  a : array [1..6] of integer;
Begin
  writeln('wwedite 6 4isel [-10..10] : '); min:=10; max:=-10;
  for i:=1 to 6 do begin
    repeat
      write(i,' : '); readln(a[i]);
    until a[i]+10 in [0..20];
    if a[i]<min then min:=a[i];
    if a[i]>max then max:=a[i];
  end;
  write('Ряд: '); for i:=1 to 6 do write(a[i]:4); writeln;
  writeln('Минимальное: ',min);
  writeln('Максимальное: ',max);
  writeln('Разность: ',max-min);
  readln;
end.

@Succous 650 / 626 / 9 Регистрация: 14.06.2012 Сообщений: 1,727
		1
	Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их разность 31.01.2013, 10:56. Показов 2040. Ответов 1 Метки нет (Все метки) Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их разность. Пример: Ряд: 1 -2 87 -40 Минимальное: -4 Максимальное: 8 Разность: 12 Заранее благодарю. 0

Опции темы

Ввести с клавиатуры 6 чисел от -10 до 10. Вывести на экран минимальное и максимальное число и их разность

Решение