Question

Помогите решить на паскале. Дан массив, в котором 10 элементов, составить программу для вывода его элемента массива по его индексу.

Answer 1

//Pascal
const n=10;
var
  a:array[1..n] of integer;
  i,k:integer;
begin
//Для теста заполнение массива сл. числами
  for i:=1 to n do a[i]:=random(50);
  writeln('Введите индекс элемента ');
  readln(k);
  writeln(a[k]);
end.