Тема: Программирование задач, связанных с обработкой

одномерных массивов.

Задача: Вычислить минимальный элемент массива, состоящего

из 8 элементов, и его номер. Преобразовать исходный массив,

вычитая из каждого элемента минимальное значение.

Var

a: array[1 ... 8] of integer;

i, b, min: integer;

begin

b : = 1;

for i : = 1 to 8 do begin

write ('Введите ', i, '-ый элемент массива ') ;

Readln (a[i]) ; / / Вводим число

if i = 1 then min : = a[i] else / / Если это первое число то min: = это число

if min > a[i] then begin / / Если min оказывается больше введённого числа

min : = a[i]; / / то min: = это чило

b : = i; / / и переменной b : = номер этого числа в массиве

end;

end;

Write ('Первоначальный массив | ') ;

for i : = 1 to 8 do write (a[i], ' ') ; / / Выводим этот массив

Writeln ('| Индекс минимального элемента ', b, '. Число ', a[b]) ; / / Переменную b и элемент стоящий на месте b

Write ('Преобразованный массив| ') ;

for i : = 1 to 8 do begin

a[i] : = a[i] - min; / / Преобразуем массив вычитая из элемента i - min

write (a[i], ' ') ; / / И сразу выводим преобразованное число

end;

write ('|') ;

end. / / конец