Дан алгоритм. Определить, что он делает, и добавьте текст внутри ‘ ‘ в команды вывода в
конце алгоритма.
Program test;
Const N=20;
Var b :array [1..N] of Integer;
i,min1,min2,p1,p2 :Integer;
Begin
For i:=1 to N do begin
b[i]:=random(80)+20; write(b[i]:3); end;
writeln;
min1:=b[1];
min2:=b[1];
For i:=1 to N do
Begin
If (b[i] mod 2<>0) and (b[i] begin min1:=b[i]; p1:=i; end;
If (b[i] mod 2=0) and (b[i] begin min2:=b[i]; p2:=i; end;
end;
Writeln(' ',min1,' ',p1);
Writeln(' ',min2,' ',p2);
If p1>p2 then Writeln(' ',min2,' ')
else Writeln(' ',min1,' ')
End.
Паскаль

avicena1111    1   18.04.2020 11:41    2