Question

Заполнить массив из восьми элементов. Вывести значение запрашиваемого элемента.

Answer 1

var i:integer ;
n :array[1..8] of integer;
begin
randomize;
 for i := 1 to 8 do 
 readln(n[i]);
 writeln ('порядковый номер числа на вывод?');
 readln(i);
writeln (n[i]); 

end.