Введите с клавиатуры массив с оценками 10 учеников. составьте программу для вывода по номеру ученика его оценку

var a:array [1 ... 10] of integer;

i, n:integer;

begin

randomize;

for i:=1 to 10 do begin

a[i]:=random (5) + 1;

end;

readln (n) ;

case n of

1:writeln (a[1]) ;

2:writeln (a[2]) ;

3:writeln (a[3]) ;

4:writeln (a[4]) ;

5:writeln (a[5]) ;

6:writeln (a[6]) ;

7:writeln (a[7]) ;

8:writeln (a[8]) ;

9:writeln (a[9]) ;

10:writeln (a[10]) ;

end;

end.

Program z;

var A:array [1 ... 10] of integer;

i, n:integer;

Begin

for i:=1 to 10 do

read (A[i]) ;

writeln ('введите номер ученика') ;

readln (n) ;

writeln ('оценка ученика - ', A[n]) ;

end.