Viết chương trình nhập ngẫu nhiên một màng n phần tử. In ra mảng và các phần tử ở vị trí chẵn

0 bình luận về “Viết chương trình nhập ngẫu nhiên một màng n phần tử. In ra mảng và các phần tử ở vị trí chẵn”

1. Program Vidu;
   Uses crt;
   Type Mang1C = array[1..10] of Integer; {khai báo tên mảng – cách 2}
   Var A:Mang1C; {Đặt tên mảng là A}
   i:integer;
   Begin
           clrscr;
           Writeln(‘Nhap gia tri cho mang A’);
           For i:=1 to 10 do 
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]); { đọc vào giá trị cho A thứ i}
           End;
           Write(‘Danh sach cac phan tu trong mang A: ‘);
           For i:=1 to 10 do
                   Write(A[i]:5);
           Readln;
   End.

   Bình luận