Viết pt nhập, xuất mảng 10 phần tử kiểu số nguyên. giúp mk nha mn mk voite đều đều 5 s

0 bình luận về “Viết pt nhập, xuất mảng 10 phần tử kiểu số nguyên. giúp mk nha mn mk voite đều đều 5 s”

1. program giup;
   uses crt;
   var a:array[1..10] of integer;
       i:integer;
   begin
     clrscr;
     for i:=1 to 10 do
      begin
       write(‘nhap so thu ‘,i,‘: ‘);
       readln(a[i]);
      end;
     for i:=1 to 10 do
      writeln(a[i]);
     readln;
   end.

   Bình luận

2. program oken;

   uses crt;

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

         i:integer;;

   begin

   clrscr;

   for i:=1 to 10 do

      begin

        write(‘a[‘,i,’]: ‘); readln(a[i]);

      end;

   write(’10 phan tu cua mang a: ‘);

   for i:=1 to 10 do

      write(a[i],’ ‘);

   readln;

   end.

   Bình luận