Program egor4774442; uses crt; const n=9; var e:array[1..n] of integer; min, nom,i: integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); randomize; for i:=1 to n do e[i]:=random(100)-50; min:=e[i]; nom:=1; writeln('Элементы массива:'); for i:=1 to n do begin if (e[i]<min) and (e[i]>0) then begin min:=e[i]; nom:=i; end; write (e[i]:5); end; writeln(); writeln('Наименьший положительный элемент массива: ',min); writeln('Его номер: ',nom); end.
Program egor4774442;
uses crt;
const n=9;
var
e:array[1..n] of integer;
min, nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
randomize;
for i:=1 to n do
e[i]:=random(100)-50;
min:=e[i];
nom:=1;
writeln('Элементы массива:');
for i:=1 to n do
begin
if (e[i]<min) and (e[i]>0) then
begin
min:=e[i];
nom:=i;
end;
write (e[i]:5);
end;
writeln();
writeln('Наименьший положительный элемент массива: ',min);
writeln('Его номер: ',nom);
end.