Тема: Программирование задач, связанных с обработкой одномерных массивов. Задача: Вычислить минимальный элемент массива, состоящего из 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. //конец