program raf105;
const N=6;
var a:array[1..N] of integer;
i:integer;
begin
for i:=1 to N do
a[i]:=5;
write(a[i],' ');
end;
end.
Язык PascalABC
program raf105;
const N=6;
var a:array[1..N] of integer;
i:integer;
begin
for i:=1 to N do
begin
a[i]:=5;
write(a[i],' ');
end;
end.
Язык PascalABC