Question

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

Answer 1

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.

Answer 2

p.s. если таких элементов больше одного (одинаковых имеется ввиду), то он выведет индекс последнего из них. если таких элементов нет, программа ничего не выводит.

Answer 3

спасибо