Найти разницу между максимальным и минимальным

@зеро · Регистрация: 09.12.2009

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

Дано 12 целых чисел в диапазоне -32000..+32000. Найти разницу между максимальным и минимальным из них

Помогите пожалуйста!((

@Snoopy · 24.12.2009, 17:40

Pascal
1
2
3
4
5
6
7
8
9
10
min:=a[1];
max:=-2;
for i:=1 to 12 do
 begin
  if a[i]<min then
   min:=a[i];
  if a[i]>max then
   max:=a[i];
  end;
Writeln('Разница ',max-min);

@кот Бегемот · 24.12.2009, 17:42

Pascal
1
2
3
4
5
6
7
8
max:=a[1];
min:=a[1];
for i:=1 to 12 do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln(max-min);

Добавлено через 1 минуту
to Snoopy
а почему max:=-2?
а вдруг в массиве только отрицательные числа?

@Snoopy · 24.12.2009, 17:56

to alexevt

@зеро · 24.12.2009, 18:22 **[ТС]**

Спасибо. А если оформить таким образом,это верно?Проблема в том что в условии сказано когда компилируешь подставить эти числа :1 5 8 2 6 0 0 0 -3 3 7 1,чтоб результат вышел число 11
у меня почему-то не пишет 11,но вроде как решение верно и компилирует верно.... в чем проблема??(((

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program Main;
var
 i: integer;
 max,min:integer;
 a:array[1..12] of integer;
 begin
 
  //ввод 12 еллементов
  for i:=1to 12 do
  read(a[i]);
 
  //алгоритм поиска максимального
  max:= 32000;
  for i:= 1 to 11 do
   if a[i]>max then
  max:=a[i];
 
 //алгоритм поиска минимального
   min:=-32000;
   for i:= 1 to 11 do
   if a[i]<min then
  min:=a[i];
  write(max,min);
end.

@Snoopy · 24.12.2009, 18:26

1. а вы подумайте как у вас выйдет результат 11 если его нет в последовательности?
2. написали вы неправильно, почем вы не учитываете в цикле последний элемент?вы попрасту его выбрасываете
3. вам нужно найти максимальный и минимальный значит должно быть два числа

@зеро · 24.12.2009, 18:33 **[ТС]**

Помогите оформить верно( очень нужно... не могу понять,что не так((((((нужно срочно решение(((

@Snoopy · 24.12.2009, 18:40

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var a:array[1..12] of integer;
    i,j,max,min:integer;
begin
ClrScr;
Randomize;
 for i:=1 to 12 do
   Readln(a[i]);
max:=a[1];
min:=a[1];
 for i:=2 to 12 do
  begin
   if a[i]<min then
    min:=a[i];
   if a[i]>max then
    max:=a[i];
  end;
Writeln('Min ',min);
Writeln('Max ',max);
Writeln('Разница ',max-min);
Readln;
end.

насчет предыдущего поста извиняюсь, вам же нужно найти разность!

@Sarmak · 24.12.2009, 19:51

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

Randomize; for i:=1 to 12 do Readln(a[i]);

...

@Snoopy · 24.12.2009, 19:59

хм, забыл убрать))

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

@зеро 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 24

	Найти разницу между максимальным и минимальным 24.12.2009, 17:38. Показов 1965. Ответов 9 Метки нет (Все метки) Дано 12 целых чисел в диапазоне -32000..+32000. Найти разницу между максимальным и минимальным из них Помогите пожалуйста!(( 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	24.12.2009, 17:56
	to alexevt 1

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	24.12.2009, 18:26
	1. а вы подумайте как у вас выйдет результат 11 если его нет в последовательности? 2. написали вы неправильно, почем вы не учитываете в цикле последний элемент?вы попрасту его выбрасываете 3. вам нужно найти максимальный и минимальный значит должно быть два числа 0

@зеро 0 / 0 / 0 Регистрация: 09.12.2009 Сообщений: 24
	24.12.2009, 18:33 [ТС]
	Помогите оформить верно( очень нужно... не могу понять,что не так((((((нужно срочно решение((( 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	24.12.2009, 19:59
	хм, забыл убрать)) 1