Помогите решить на паскале. Дан массив, в котором 10 элементов, составить программу для вывода его элемента массива по его индексу.
Answers & Comments
vladmor
//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.
Answers & Comments
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.