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

Sabishka13

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

Senset

Well-Known Member
11.09.2006
136
0
#2
Код:
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.