Question

Составте программу в паскале. В целочисленном массиве из 10 чисел найти максимум и минимум и вывести на печать те элементы, которые находятся между максимумом и минимумом.

Answer 1

Procedure massiv; 
var a:array[1..10] of integer;
 i,max,min:integer;
 begin
 min:=1; 
max:=1; 
 randomize; 
 for i:=1 to 10 do 
 begin 
a[i]:=random(100); 
  if a[i]<a[min] then min:=i; 
 if a[i]>a[max] then max:=i; 
 write(a[i],' '); 
 end; 
 writeln('Минимальное ', a[min], ' Максимальное ', a[max]); 
  if min<max then     
for i:= min+1 to max-1 do     
 write(a[i],' ') else     
 for i:= max+1 to min-1 do     
 write(a[i],' ')     
 end;
begin
 massiv()
end.

Answer 2

Программа на Паскале для поиска максимума и минимума в массиве

Вот пример программы на Паскале, которая находит максимум и минимум в целочисленном массиве из 10 чисел и выводит на печать элементы, которые находятся между максимумом и минимумом:

program MaxMinArray;

var
  arr: array[1..10] of integer;
  i, max, min, maxIndex, minIndex: integer;

begin
  { Ввод элементов массива }
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
    readln(arr[i]);

{ Нахождение максимума и минимума }
  max := arr[1];
  min := arr[1];
  maxIndex := 1;
  minIndex := 1;
  for i := 2 to 10 do
  begin
    if arr[i] > max then
    begin
      max := arr[i];
      maxIndex := i;
    end;
    if arr[i] < min then
    begin
      min := arr[i];
      minIndex := i;
    end;
  end;

{ Вывод максимума и минимума }
  writeln('Максимум: ', max);
  writeln('Минимум: ', min);

{ Вывод элементов между максимумом и минимумом }
  writeln('Элементы между максимумом и минимумом:');
  if maxIndex < minIndex then
  begin
    for i := maxIndex + 1 to minIndex - 1 do
      write(arr[i], ' ');
  end
  else
  begin
    for i := minIndex + 1 to maxIndex - 1 do
      write(arr[i], ' ');
  end;
end.

Эта программа сначала запрашивает у пользователя ввод 10 целых чисел, затем находит среди них максимум и минимум, выводит их на экран, и, наконец, выводит элементы массива, которые находятся между максимумом и минимумом.