program kurs_v;
const x=20;
var n:integer;
A:array[1..x] of integer;
i,min:integer;
begin
min:=A[1];
for i:=2 to N do
If A[i]<min then min:=a[i];
end;
write(min);
end.
ReadlnString.Reverse.Print
20 раз:
7, 17, 27, 37, 47, 57, 67, 87, 97
70, 71, 72, 73, 74, 75, 76, 77, 78, 79
t*.bmp