Viết chương trình nhập và xuất mảng gồm 8 phần tử Giúp mik với. Cảm ơn nhìu ạ

0 bình luận về “Viết chương trình nhập và xuất mảng gồm 8 phần tử Giúp mik với. Cảm ơn nhìu ạ”

1. uses crt;
   var i:integer;
       a:array[1..8] of integer;
   begin
    clrscr;

    for i:=1 to 8 do
     begin
      write(‘Nhap a[‘,i,’]: ‘);
      readln(a[i]);
     end;
    for i:=1 to 8 do write(a[i],’ ‘);

    readln;
   end.

   Bình luận

2. Program BTH;
   uses crt;
   var a:array[1..8] of longint;
   i:byte;
   Begin
           clrscr;
           For i:=1 to 8 do
           Begin
                   write(‘Nhap so thu ‘,i,’ : ‘);readln(a[i]);
           end;
           For i:=1 to 8 do write(a[i],’ ‘);
           readln;
   end

   Bình luận