Question

описать массив из 20 элементов вывести его на экран(случайно) отдельной строкой вывести 5-й элемент

Answer 1

Program n1;
var a: array[1..20] of integer;
i,k: integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(15);
for i:=1 to 4 do write(a[i],' ');
for i:=6 to 20 do write(a[i],' ');
writeln;
writeln(a[5]);
end.