Организация Циклов

[Sabishka13]

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

 

[Senset]

var a:array[1..12] of real;
i,min:integer;
begin
writeln('Введите массив');
min:=0;
for i:=1 to 12 do
begin
read(a[i]);
if a[min]>a[i] then min:=i;
end;
if min=0 then writeln('Отрицательных элементов введено не было')
else writeln('Наименьший отрицательный элемент: ',a[min]);
end.