Question

Дано 10 чисел.вевести четыре числа начиная со второго

Answer 1

const n=10;var a:array [1..n] of integer;i:integer;beginrandomize;for i:=1 to n do a[i]:=random(50);for i:=2 to 5 dowriteln(a[i]);end.

Answer 2

const n=10;
var a:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(50);
for i:=2 to 5 do
writeln(a[i]);
end.