Khai báo mảng 1 chiều tối đa 10 phần tử. Nhập và in mảng trên màn hình B tính tong các phần tử trong mảng C đếm số âm dương trong mảng

0 bình luận về “Khai báo mảng 1 chiều tối đa 10 phần tử. Nhập và in mảng trên màn hình B tính tong các phần tử trong mảng C đếm số âm dương trong mảng”

1. Program hotboy;

   Uses crt;

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

       s,i,n,am: integer ; 

   Begin

    Clrscr;

    Write(‘Nhap so phan tu n:’); Readln(n);

    for i:=1 to n do begin

    Write(‘a[‘,i,’] = ‘);

       readln(a[i]);

     end;

           For i:=1 to n do

           Begin

   if A[i]<0 then am:= am+1; 

   writeln(a[i]);

   end;

   s:=s+a[i]; 

    writeln(‘Tong cac phan tu cua mang: ‘,s);

   writeln(‘co so so am la. ‘,am);

   readln

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var A: array[1..10] of longint;
       n,i,da,dd,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           s:=0;
           Write(‘Cac phan tu cua mang la: ‘);
           For i:=1 to n do
           Begin
                   Write(A[i],’ ‘);
                   s:=s+A[i];
                   If A[i]>=0 then inc(dd);
                   If A[i]<0 then inc(da);
           End;
           Writeln;
           Writeln(‘Tong cac phan tu cua mang: ‘,s);
           Write(‘Co ‘,dd,’ so duong va ‘,da,’ so am’);
           Readln
   End.

   Bình luận