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

Question

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

Comments

Язык?

---

Паскаль

---

Спасибо

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.

Comments

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.