viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0

11/07/2021 Bởi Claire

0 bình luận về “viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên B. Độ dài của dãy n cũng được nhập từ bàn phím với (0<n<100)”

1. uses crt;
   var n,i,s:longint;B:array[1..100]of longint;
   begin
           clrscr;
           repeat
                   write(‘Nhap so luong phan tu: ‘);readln(n);
                   if (n<=0)and(n>100) then write(‘NHAP LAI!’);
           until (n>0)and(n<=100);
           for i:=1 to n do
                   begin
                           write(‘Nhap phan tu thu ‘,i,’: ‘);readln(B[i]);
                           inc(s,B[i]);
                   end;
           write(‘Tong: ‘,s);
           readln
   end.

   Bình luận

2. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
           n, s, i: integer;
   begin
           clrscr;
           write(‘Nhap n (0<n<100) = ‘); readln(n);
           if (n<1) or (n<100) then write(‘Nhap sai yeu cau!’) else
           begin
                    for i:=1 to n do
                    begin
                             write(‘A[‘, i, ‘] = ); readln(A[i]);
                              s:=s+A[i];
                    end;
                    write(‘Day vua nhap la: ‘);
                    for i:=1 to n do write(A[i]:3);
                    writeln;
                    write(‘Tong = ‘, s);
           end;
           readln
   end.

   Bình luận