Question

Viết chương trình nhập vào 1 dãy số nguyên gồm 80 phần tử in ra màn hình dãy số vừa nhập

Answer 1

program In_Day_So_Nguyen;

uses crt;

var

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

     i: integer;

begin

     clrscr;

     writeln('Nhap vao day so nguyen: ');

     for i := 1 to 80 do

     begin

          readln(a[i]);

     end;

     writeln('Day so nguyen ban vua nhap la: ');

     for i:=1 to 80 do

     begin

          write(a[i], ' ');

     end;

     readln;

end.