Составьте
программу вычисления в массиве B(N)
минимального среди положительных
элементов и его номера

2

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

2013-10-16T15:44:55+04:00
Const N=10;
var a: array [0..N] of integer;
    i, m: integer;
begin
     for i := 0 to N do
         a[i] := random(1000) - 500; { Надо же что-то в массив закинуть =) }
     for i := 0 to N do
         if ((a[i] > 0) and (a[i] > a[m])) then
            m := i;
     writeln('[', m, '] => ', a[m]);
end.
2013-10-16T16:30:40+04:00
Min:=b[1];
max:=b[1];
for i:=1 to n do begin
if min<b[i] then
min:=b[i];
if max>b[i] then
max:=b[i];
max:=b[i];
end;