Петр наугад тянет из непрозрачного мешочка одну конфету из 16. какое кол-во информации он получит ; когда достанет конфету, если все конфеты одинаковы по форме, но отличаются начинкой?
var a: array[1..5] of integer; i: integer; begin randomize; for i:=1 to 5 do a[i] := random(100); for i:=1 to 5 do write(a[i], ' '); writeln; for i:=1 to 5 do a[i] := a[i] * i; for i:=1 to 5 do write(a[i], ' '); end.
Для ручного заполнения:
var a: array[1..5] of integer; i: integer; begin for i:=1 to 5 do readln(a[i]); for i:=1 to 5 do write(a[i], ' '); writeln; for i:=1 to 5 do a[i] := a[i] * i; for i:=1 to 5 do write(a[i], ' '); end.
