Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

//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.