Задание
var i,k,j:byte;
d:integer;
begin
k:=1;
for i:=2 to n do
begin
if a
begin
k:=i;
end;
end;
write\(a⟨2⟩\);
end.
Что будет выведено на экран?
program massiv;
const n=10;
a:array
\[1\.\.n\]
of integer= \(10,9,2,3,10,10,2,4,10,1\);var i,k,j:byte;
d:integer;
begin
k:=1;
for i:=2 to n do
begin
if a
\[i\]
<=a\[k\]
thenbegin
k:=i;
end;
end;
write\(a⟨2⟩\);
end.