Найти максимальные и минимальные числа

@Возбуждающая · Регистрация: 29.03.2011

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

Найти максимальные и минимальные числа, напечатать те элементы массива, которые в массиве находятся между ними. Так, если А={2,4,-3,0,2,5,-2}, результат:-3, 0,2,5(max=5, min=-3).

Pascal

Const
 n=10;
var  x:array[1..n] of integer;
a,b,m1,m3i:integer;
begin
randomize;
readln(a,b);
for  i:=1 to n do 
begin
x[i]:=random (b-a+1)+a;
write (x[i]:6);
end;
m1:=1;
for  i:=2 to n do 
if  x[i]>x[m1]  then m1:=I;
m3:=n;
for  i:=1 to n-1 do 
if  x[i]<x[m3]  then m3:=I;
end…

помогите закончить программу, если конечно я ее правильно начала, я тут максимальный и минимальный нашла.

@Возбуждающая · 01.12.2011, 15:30 **[ТС]**

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

@versa4e · 01.12.2011, 16:02

Pascal

const
  nmax=60;
type
  arr=array[1..nmax] of integer;
var
  a:arr;
  i,n,imin,imax:integer;
begin
  repeat
    write('Razmer massiva, ne bolee ',nmax,': ');
    readln(n);
  until n in [1..nmax];
  randomize;
  for i:=1 to n do
    begin
      a[i]:=-10+random(21);
      write(a[i]:4);
    end;
  writeln;
  imin:=1;imax:=1;
  for i:=2 to n do
    begin
      if a[i]>a[imax] then
        imax:=i;
      if a[i]<a[imin] then
        imin:=i;
    end;
  writeln('Min: ',a[imin],' Max:',a[imax]);
  if imin<imax then
    for i:=imin to imax do
      write(a[i]:4)
  else
    for i:=imax to imin do
      write(a[i]:4);
end.

Новые блоги и статьи Все статьи Все блоги /
Что нового в Laravel 12 Wired 18.02.2025 С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .	Роутер в Laravel: как работать с маршрутами Wired 18.02.2025 Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .	Интеграция шаблона Bootstrap в Laravel PHP Wired 18.02.2025 Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .	Использование контроллеров и middleware в Laravel PHP Wired 18.02.2025 Современная веб-разработка требует четкой организации кода и эффективного управления потоком HTTP-запросов. Laravel, как один из ведущих PHP-фреймворков, предоставляет два мощных инструмента для. . .	Фильтрация массива по неточному соответствию элементам другого массива в JavaScript Wired 18.02.2025 При работе с массивами данных в JavaScript иногда возникает задача поиска и фильтрации элементов по неточному соответствию. В отличие от точного сравнения, когда мы ищем полное совпадение значений,. . .
Создаем SPA Router на чистом JavaScript bytestream 17.02.2025 В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .	Машинное обучение на TypeScript и TensorFlow bytestream 17.02.2025 Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .	Манипуляция данными EXIF и JPEG в JavaScript bytestream 17.02.2025 В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .	Как создать GUID/UUID в JavaScript bytestream 17.02.2025 GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .	Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели). Hrethgir 17.02.2025 Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .

@Возбуждающая 14 / 2 / 2 Регистрация: 29.03.2011 Сообщений: 243
	01.12.2011, 15:30 [ТС]	2
	помогите(((((( пожалуйста((( 0

	29.11.2011, 19:39

	01.12.2011, 16:02