Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln;
for i:=1 to 5 doif a[i]>max then max:=a[i];
writeln('max=',max);
end.
PascalABC.NET 3.4.2, сборка 1979 (16.02.2019)
b<span>:=a</span>;
<span>for</span> i<span>:=</span><span>1</span><span>to</span> 8 <span>do
</span> b<span>:=</span>a<span>+</span><span>(</span>a<span>+</span><span>d</span><span>)</span>;
<span>writeln</span><span>(</span>b<span>)</span>;