Даны действительные числа а1,а2, . . . ,аn. Поменять местами наибольший и наименьший элементы.

@CTAC59 · Регистрация: 06.12.2010

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

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

@SuPeR XaKer · 06.12.2010, 17:48

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
25
26
27
28
29
30
31
32
33
34
35
36
Uses
 crt;
var
 a:array[1..100] of integer;
 i,j,n,max,imax,imin,b:integer;
begin
write('N: ');
readln(n);
imax:=1;
imin:=1;
randomize;
for i:= 1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
  if a[i]>a[imax] then
  begin
   imax:=i;
  end;
  if a[i]<a[imin] then
  begin
   imin:=i;
  end;
end;
writeln;
writeln('MAX[',imax,']:=',a[imax]);
writeln('MIN[',imin,']:=',a[imin]);
b:=a[imax];
a[imax]:=a[imin];
a[imin]:=b;
for i:= 1 to n do
begin
 write(a[i]:3);
end;
readln
end.

Только массив вещественных чисел сделайте.

@CTAC59 · 06.12.2010, 18:01 **[ТС]**

Спасибо большое

@Dekio · 06.12.2010, 18:05

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
25
program Dekio;
const
n=20;
var
mas :array[1..n] of integer;
i,t,min,max :integer;
begin
randomize;
max:=1; min:=1;
for i:=1 to n do
begin
mas[i]:=random(30)-5;
write(mas[i]:5);
if mas[i] > mas[max] then
max:=i;
if mas[i] < mas[min] then
min:=i;
end;
t:=mas[max];
mas[max]:=mas[min];
mas[min]:=t;
writeln;
for i:=1 to n do
write(mas[i]:5);
end.

@SuPeR XaKer · 06.12.2010, 18:07

Dekio
#2 ?

@CTAC59 · 06.12.2010, 18:45 **[ТС]**

Что такое randomize?

@Dekio · 06.12.2010, 18:46

случайное число

@CTAC59 · 06.12.2010, 18:47 **[ТС]**

Что значит оператор Randomize?

@Dekio · 06.12.2010, 19:12

Randomize устанавливает начало отсчета случайных чисел, исходя из состояния системных часов компа

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера 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, то после закрытия окошка. . .

@CTAC59 0 / 0 / 0 Регистрация: 06.12.2010 Сообщений: 11

	Даны действительные числа а1,а2, . . . ,аn. Поменять местами наибольший и наименьший элементы. 06.12.2010, 17:37. Показов 49951. Ответов 8 Метки нет (Все метки) Помогите пожалуйста 0

@CTAC59 0 / 0 / 0 Регистрация: 06.12.2010 Сообщений: 11
	06.12.2010, 18:01 [ТС]
	Спасибо большое 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	06.12.2010, 18:07
	Dekio #2 ? 0

@CTAC59 0 / 0 / 0 Регистрация: 06.12.2010 Сообщений: 11
	06.12.2010, 18:45 [ТС]
	Что такое randomize? 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	06.12.2010, 18:46
	случайное число 1

@CTAC59 0 / 0 / 0 Регистрация: 06.12.2010 Сообщений: 11
	06.12.2010, 18:47 [ТС]
	Что значит оператор Randomize? 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	06.12.2010, 19:12
	Randomize устанавливает начало отсчета случайных чисел, исходя из состояния системных часов компа 0