Program proizvedenie;
var a: array[1..10] of integer;
i,p:integer;
begin
for i:=1 to 10 do a[i]:=random(11);
p:=1;
for i:=1 to 10 do p:=p*a[i];
writeln(p)
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
- не использовать знаки ? / и некоторые др.
- длина имени не более 20 символов
- имя файла отражает содержимое
Осинь обагрила свойим листтям лис.червона королева малюе краще за всих сестер . осинь-це пора витру та краси. листтячко падало на землю,що б почервив сад.в цьому роци осинь буде незабутня