Question

Задан массив чисел. Составить алгоритм и программу его переработки в соответствии с вариантом задания, организовав вывод исходного и полученного массивов. Данные для отладки выбрать самостоятельно.


Задание: Определить номер и значение самого последнего минимального элемента массива. Инвертировать первую половину массива.


Pascal ABC и Delphi 7

Answer 1

const

 N_MAX = 100;

var

 m: Array [1 .. N_MAX] of Integer;

 n, i, j, IndMin, buffer: Integer;

begin

 Read(n);

 for i := 1 to n do

   Read(m[i]);

 WriteLn('Подзадача 1:');

 IndMin := 1;

 for i := 2 to n do

   if m[i] <= IndMin then

     IndMin := i;

 WriteLn(IndMin);

 WriteLn('Подзадача 2:');

 i := 1;

 j := n div 2;

 while i < j do begin

   buffer := m[i];

   m[i] := m[j];

   m[j] := buffer;

   i := i + 1;

   j := j - 1;

 end;

 for i := 1 to n do

   Write(m[i], ' ');

end.