Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение - Pascal ABC

  1. Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение. Вот шапка:


textual

Код к задаче: «Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение - Pascal ABC»

Uses Crt;
Const n=20;
Type Mas = array [1..n] of integer;
Var  A: Mas;
     i,i1,imn,x:integer;
Begin
Randomize;
Writeln('Исходный массив');
For i:=1 to n do
 begin
  A[i]:=-10+random(21);
  Write(A[i]:4);
 end;
Writeln;
i1:=0;
imn:=1;
For i:=1 to n do
 begin
  if A[i]<A[imn] then imn:=i;
  if(i1=0)and(A[i]=0)then i1:=i;
 end;
Writeln('Минимальный элемент=',A[imn],' его номер=',imn);
if i1=0 then Write('Нулевого элемента нет')
else
 begin
  Writeln('Номер первого нулевого элемента=',i1);
  x:=A[imn];
  A[imn]:=A[i1];
  A[i1]:=x;
  Writeln('Обмен первого нулевого и минимального элементов');
  For i:=1 to n do
  Write(A[i]:4);
 end;
end.

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

9   голосов, оценка 4.222 из 5



Похожие ответы
  1. Написать программу для создания файла с записью массива из n элементов в диапазоне от [-30;30]. Программа для обработки массива в соответствии с заданием, массив считывается из ранее созданного файла. Поменять местами максимальный элемент и первый. Нужно две программы: одна создает файл а вторая считывает.

  1. Дан числовой массив (его нужно ввести) поменять местами элементы массива попарно: 1-2,3-4,5-6, и тд.. Заранее спасибо за помощь

  1. Написать процедуру которая в заданом одномерном массиве меняет местами максимальный и первый элемент.Применить эту процедуру к каждой строке заданной прямоугольной матрицы

  1. Дана задача: Написать программу для решения следующей задачи. В двумерном массиве, состоящем из целочисленных элементов, поменять местами в каждой строке наибольший нечетный по значению и последний положительный элементы. Смог сделать все условия,но вот поменять местами числа не могу. Добавьте,пожалуйста,в мой код смену местами или исправьте,если что-то не так.

  1. Даны натуральные числа N,M и матрица разрядности NxM действительных чисел, где n,m>=10. Найти наибольший и наименьший элемент матрицы и поменять их местами. Вот что написал, дальше помогите

  1. Даны 2 матрицы 3 на 3, поменять 1 строку 1 матрицы с последней стракой 2 матрицы

  1. Помогите решить задачу В двумерном массиве c случайными целыми числами в диапазоне от -50 до 50, поменять местами наибольший элемент с указанным элементом [p, q]. размерность NxM (задается константами).

  1. Добрый день. мне нужно исправить программу(думаю процедуру замена) {Написать процедуру, которая в заданном одномерном массиве меняет местами максимальный и первый элемент.Применить эту процедуру к каждому столбцу заданной прямоугольной матрицы}

  1. Поменять местами в двумерном массиве: в каждом столбце первый принадлежащий отрезку [a, b] и первый отрицательный элементы; Помогите пожалуйста, с меня спасибо.

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