в одномерном массиве А(10) найти значение и индекс наименьшего из положительных элементов
Answers & Comments
Sky09
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.
3 votes Thanks 5
Sky09
p.s. если таких элементов больше одного (одинаковых имеется ввиду), то он выведет индекс последнего из них. если таких элементов нет, программа ничего не выводит.
Answers & Comments
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.