В одномерном массиве определить два элемента с минимальными значениями - Pascal

  1. В произвольно заданном одномерном массиве определить два элемента с минимальными значениями и уменьшить исходный массив на элементы, расположенные между найденными значениями.


textual

Код к задаче: «В одномерном массиве определить два элемента с минимальными значениями - Pascal»

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,k,m1,m2:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4)
 end;
writeln;
if a[1]>a[2] then
 begin
  m1:=1;
  m2:=2;
 end
else
 begin
  m1:=2;
  m1:=1;
 end;
for i:=2 to n do
if a[i]<a[m1] then
 begin
  m2:=m1;
  m1:=i;
 end
else if a[i]<a[m2] then m2:=i;
writeln('Первый элемент с минимальным значениен a[',m1,']=',a[m1]);
writeln('Второй элемент с минимальным значениен a[',m2,']=',a[m2]);
if abs(m1-m2)=1 then write('Между ними элементов нет')
else
 begin
  if m1>m2 then
   begin
    k:=m1;
    m1:=m2;
    m2:=k;
   end;
  for i:=1 to m2-m1-1 do
   begin
    for j:=m1+1 to n-1 do
    a[j]:=a[j+1];
    n:=n-1;
   end;
  writeln('Измененный массив');
  for i:=1 to n do
  write(a[i]:4);
 end;
readln
end.

СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.000 из 5



Похожие ответы
  1. Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.

  1. дан массив. после каждого элемента вставте такой же.

  1. Есть массив с типом longint, как заменить в этом массиве определенное число буквой? (например все числа 1 заменить буквой а, все числа 13 буквой д)

  1. В заданном одномерном массиве все элементы этого массива умножить на среднее арифметическое наибольшего и наименьшего элементов этого массива. Начальный и преобразованный массивы напечатать с указанием, что печатается.

  1. Дано натуральное число М и целочисленный массив А[1..M]. Сосчитать и вывести количество различных чисел в массиве.Добавлено через 1 минуту помогите пож-та

  1. Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечетный элемент.

  1. Решите пожалуйста вот это.. Создать Массив С на 30 целых чисел из диапазона (-25...25). Найти количество положительных чисел в массиве KP, отрицательных KO и нулевых KN. Заменить все отрицательные числа числом +50, а нулевые - числом +30. НАйти среднее арифметическое значение всех элементов массива. Прям совсем не умею работать с двумерными и далее массивами....

  1. Условие В заданном одномерном массиве N<=40 найти наименьшее из нечётных чисел . Вот моя программа ,но она не правильно работает.Помогите если не сложно)

  1. В двумерном массиве удвоить элементы тех столбцов, в которых нет нулевых элементов, помогите пожалуйста.