Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

var
a:array[1..100000000] of integer;
mini,minz,i,n:integer;
begin
Write(Введите размер массива - );
readln(n);
write(Введите элементы массива - );
for i:=1 to n do
 read(a[i]);
i:=1;
while
 minz=0 do
 begin
  i:=i+1;
  if a[i]>0 then
   begin
    mini:=i;
    minz:=a[i];
   end;
  end;
for i:=1 to n do
 begin
  if (a[i]0) then
   begin
    minz:=a[i];
    mini:=i;
   end;
 end;
writeln(Значение минимального элемента массива - ,minz,. Индекс - ,mini);
end.