Program mas_4_by_Kornev_Maxim;
Var i, x, c: integer;
a: array [1..20] of integer;
Begin
Randomize;
Writeln ('Пожалуйста, нажмите "Enter", чтобы сгенерировать случайный массив.');
readln;
For i:=1 to 20 do
a[i]:=random(101);
For i:=1 to 19 do
begin
If i mod 10 = 0 then
Writeln ('a[',i,']=',a[i],';')
else
Write ('a[',i,']=',a[i],'; ');
end;
Write ('a[',20,']=',a[20],'.');
End.
UHJvZ3JhbSBtYXNfNF9ieV9Lb3JuZXZfTWF4aW07CiAgVmFyIGksIHgsIGM6IGludGVnZXI7CiAgICBhOiBhcnJheSBbMS4uMjBdIG9mIGludGVnZXI7CiAgQmVnaW4KICAgIFJhbmRvbWl6ZTsKICAgIFdyaXRlbG4gKCfQn9C+0LbQsNC70YPQudGB0YLQsCwg0L3QsNC20LzQuNGC0LUgIkVudGVyIiwg0YfRgtC+0LHRiyDRgdCz0LXQvdC10YDQuNGA0L7QstCw0YLRjCDRgdC70YPRh9Cw0LnQvdGL0Lkg0LzQsNGB0YHQuNCyLicpOwogICAgcmVhZGxuOwogICAgRm9yIGk6PTEgdG8gMjAgZG8KICAgICAgYVtpXTo9cmFuZG9tKDEwMSk7CiAgICBGb3IgaTo9MSB0byAxOSBkbwogICAgYmVnaW4KICAgICAgSWYgaSBtb2QgMTAgPSAwIHRoZW4KICAgICAgICBXcml0ZWxuICgnYVsnLGksJ109JyxhW2ldLCc7JykKICAgICAgZWxzZQogICAgICAgIFdyaXRlICgnYVsnLGksJ109JyxhW2ldLCc7ICcpOwogICAgZW5kOwogICAgV3JpdGUgKCdhWycsMjAsJ109JyxhWzIwXSwnLicpOwogIEVuZC4=