Viết chương trình Pascal thực hiện các yêu cầu sau – khai bái biến mảng gồm 100 phần tử – nhập dữ liệu cho dãy số n phần tử ( 0 < n < 100 ) - in cá

0 bình luận về “Viết chương trình Pascal thực hiện các yêu cầu sau – khai bái biến mảng gồm 100 phần tử – nhập dữ liệu cho dãy số n phần tử ( 0 < n < 100 ) - in cá”

1. Program chuongtrinh;

   uses crt;
   var a: array[1..100] of integer;
   n,i,d: integer;
   begin
   clrscr;
   d:=0;
   write(‘Nhap so phan tu: ‘); readln(n);
   for i:=1 to n do begin
   write(‘a[‘,i,’]=’); readln(a[i]); end;
   writeln(‘Cac phan tu trong mang la: ‘);
   for i:=1 to n do
   write(a[i],’ ‘);
   readln;
   end.

   Bình luận

2. uses crt;
   var a: array[1..100] of integer;
   n,i,d: integer;
   begin
   clrscr;
   d:=0;
   write(‘Nhap so phan tu: ‘); readln(n);
   for i:=1 to n do begin
   write(‘a[‘,i,’]=’); readln(a[i]); end;
   writeln(‘Cac phan tu trong mang la: ‘);
   for i:=1 to n do
   write(a[i],’ ‘);
   readln;
   end.

   đã test mong đc vote

   Bình luận