Viết trương trình nhập dãy N số nguyên ( N <= 50) in ra dãy theo hàng ngang. Tính tổng các số âm trong dãy vừa nhập

0 bình luận về “Viết trương trình nhập dãy N số nguyên ( N <= 50) in ra dãy theo hàng ngang. Tính tổng các số âm trong dãy vừa nhập”

1. uses crt;
   var i,n,s: integer;
   a: array[1..50] of integer;
   begin
   clrscr;
   s:=0;
   write(‘Nhap so phan tu: ‘); readln(n);
   for i:=1 to n do begin
   write(‘A[‘,i,’]=’); readln(a[i]); end;
   for i:=1 to n do
   if a[i] < 0 then
   s:=s+a[i];
   if s<>0 then begin
   write(‘Cac so an la: ‘);
   for
   i:=1 to n do
   if a[i] < 0 then write( a[i],’ ‘);
   writeln;
   writeln(‘Tong cua cac so khong am la: ‘,s);
   end else writeln(‘Khong co so am’);
   readln;
   end.

   đã test! mong đc vote

   Bình luận

2. uses crt;

   var a: array[1..100] of integer;

   i,n: integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   end;

   clrscr;

   write (‘mang vua nhap: ‘);

   for i:=1 to n do write (a[i],’  ‘);

   readln;

   end.

   xin hay nhất nhea :))

   Bình luận