Viết chương trình nhập k195520103135. In ra màn hình điểm quy đổi thành chữ tương ứng

0 bình luận về “Viết chương trình nhập k195520103135. In ra màn hình điểm quy đổi thành chữ tương ứng”

1. program C;

   uses crt;

   var i,n,d,t:integer;

          A:array[1..1000] of integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu: ‘);   readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   d:=0; t:=0;

   for i:=1 to n do

    begin

     write(‘A[‘,i,’]= ‘);

     readln(A[i]);

     if A[i] mod 3=0 then

      begin

       d:=d+1; 

       t:=t+A[i];

      end;

    end;

   write(‘Co ‘,d,’ phan tu cua mang la boi cua 3 va tong cua chung la: ‘,t);

   readln

   end.

   Bình luận

2. uses k195520103135;

   var a: array[k195520103135] of longint;

         i,n,ta,td,d: longint;

   begin

   clrscr;

   write (‘nhap so phan tu cua mang: ‘);  readln (n);

   for i:=1 to n do

   begin

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

   if a[i]<0 then ta:=ta+a[i];

   if a[i]>0 then td:=td+a[i];

   if a[i]=0 then d:=d+1;

   end;k195520103135

   write (‘cac so chan la: ‘);

   for i:=1 to n do if a[i] mod 2=0 then write(i,’   ‘);

   write (‘cac so le la: ‘);

   for i:=1 to n do if a[i] mod 2<>0 then write(i,’   ‘);

   writeln (‘tong cac so am: ‘,ta);

   writeln (‘tong cac so duong: ‘,td);

   writeln (‘co ‘,d,’ so 0 trong day so’);

   readln;

   end.

   Bình luận