В одномерном массиве А(10) найти значение и индекс наименьшего из положительных элементов

1

Ответы и объяснения

Лучший Ответ!
  • Sky09
  • профессор
2014-03-09T12:31:08+04:00
Uses crt;
const n=10;
var a: array [1..n] of integer;
    x,min:integer;
begin
     for x:=1 to n do begin
         write('a[',x,']:');
         readln(a[x]);
         if a[x]>0 then min:=x;
     end;
     for x:=1 to n do
         if (a[x]>0) and (a[x]<a[min]) then min:=x;
     writeln;
     write('a[',min,']:',a[min]);
end.
p.s. если таких элементов больше одного (одинаковых имеется ввиду), то он выведет индекс последнего из них. если таких элементов нет, программа ничего не выводит.
спасибо