Найти максимальный элемент массива и поменять его местами с первым элементом - Turbo Pascal

  1. В качестве условия задачи берется задание из 5 лабораторной работы, но работать не с одним массивом, а с двумя А1 и А2. В основной программе предусмотреть вызовы подпрограмм к обоим массивам. вот 5 лаб работа "Дан массив целых чисел а1,…, аn. Найти максимальный элемент массива и поменять его ме-стами с первым элементом." Он сделан вот так:


textual

Код:

Uses CRT;
Const n=5;
Type mas=array[1..n] of integer;
var a1,a2:mas;
    i:integer;
Procedure P(Var A:mas;n:byte);
Var i,index,buf,max:integer;
Begin
    max:=a[1];
     index:=1;
     for i:=1 to n do
         begin
              if a[i]>max then
                 begin
                      max:=a[i];              //Поиск максимального эл.
                      index:=i;               //Его индекс
                 end
         end;
     writeln('');
     write('Max=',max,' Index=',index);
     buf:=a[1];                                  //Замена первого элемента,с тем,откуда мы его взяли
     a[1]:=a[index];
     a[index]:=buf;
End;
begin
     ClrScr;
     writeln('Массив A1');
     for i:=1 to n do
     begin
     a1[i]:=Random(21);
     write(' a1[',i,']=',a1[i]);
     end;
     P(A1,n);
     writeln;
     writeln('Преобразованный массив A1');
     for i:=1 to n do write(' a1[',i,']=',a1[i]);      //Вывод
     writeln;
     writeln('Массив A2');
     for i:=1 to n do
     begin
     a2[i]:=Random(21);
     write(' a2[',i,']=',a2[i]);
     end;
     P(A2,n);
     writeln;
     writeln('Преобразованный массив A2');
     for i:=1 to n do write(' a2[',i,']=',a2[i]);      //Вывод
end.


Похожие ответы
  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

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

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

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

  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

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

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.