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

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

textual

Код:

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.

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

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

  1. В заданном векторе (одномерном массиве) найти: разность первого положительного и последнего отрицательного элемента

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

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

  1. Вроде бы легкие, но че то до меня не допирает! 1) В одномерном числовом массиве посчитайте количество элементов, по модулю меньших заданного числа Т. 2) Заполнить массив из 8 элементов таким образом, чтобы значения элементов при просмотре массива слева на право образовали: а) убывающую последовательность, б) возрастающую последовательность. Кому не сложно напишите, пожалуйста...

  1. Всем доброго времени суток. Задали сделать лабораторные работы, но вот незадача, простые я смог выполнить а с массивом и так и сяк, не как не получается. Прошу вашей помощи, если можно то программу лучше напишите полностью. Задача. В одномерном массиве X(15) найти сумму отрицательных, количество положительных и произведение не нулевых элементов. P.S. я с таким не сталкивался но возможно ли выполнить все эти действия из задачи в одной программе?

  1. В одномерном массиве A1, A2, ... , An заменить каждое отрицательное число полусуммой его соседей справа и слева. Предполагается, что первое и последнее числа в массиве положительны. Помогите составить программу в Паскале, пожалуйста!

  1. Составить функцию, которая в одномерном массиве D определяет первый от конца положительный элемент. В случае нахождения положительного числа функция возвращает найденное число, в противном случае возвращает -1. С помощью функции определить в каждой строке матрицы H(l,m), l≤12, m≤14, первые от конца положительные элементы, которые записать без пропусков в массив P. Полученный массив P упорядочить по убыванию методом нахождения минимального. Вывести полученный массив, если он не пуст, или сообщение об отсутствии в матрице положительных чисел в ином случае.

  1. Найти количество элементов, кратных 5 и принадлежащих интервалу 10<=F[i]<=50, в массиве F(14). Только без рандомайза.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика