Question

Создать массив из 6 элементов (const N=6), элементы массива заполнить числом 5, вывести массив в строку.

Answer 1

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