var a:array[1..10] of integer;
i,min,j:integer;
begin
min:=maxint;
j:=0;
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]<min) and (a[i]>0) then
begin
min:=a[i];
j:=i;
end;
end;
writeln('Наименьший элемент массива равен',min,' индекс равен',j);
end.
Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.
Можно чуток оптимизировать, чтобы красивее смотрелось