Question

Viết chương trình Pascal thực hiện các yêu cầu sau:

- Nhập vào một dãy số gồm N số nguyên

- Hiển thị dãy số vừa nhập

Answer 1

program max_min;

uses crt;

var i,n:integer;

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

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.