Question

Viết câu lệnh Pascal nhập dữ liệu cho `1` mảng gồm `n` phần tử

Answer 1

Uses crt;

var n,i: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

writeln(a[i]:3);

readln;

end.