viết chương trình nhập vào từ bàn phím một mảng gồm n số nguyên ( n<= 100). Tính và đưa ra màn hình a) Tổng các phần tử âm trên của mảng b) Số nhỏ thứ

0 bình luận về “viết chương trình nhập vào từ bàn phím một mảng gồm n số nguyên ( n<= 100). Tính và đưa ra màn hình a) Tổng các phần tử âm trên của mảng b) Số nhỏ thứ”

1. uses crt;

   var i,n,t,tg,j:longint;

         a:array[1..100] of longint;

   begin

   clrscr;

   readln(n);

   for i:=1 to n do read(a[i]);

   t:=0;

   for i:=1 to n do if a[i]<0 then t:=t+a[i];

   for i:=1 to n-1 do

    for j:=i+1 to n do

     if a[i]>a[j] then begin tg:=a[i]; 

                                        a[i]:=a[j];

                                        a[j]:=t;

                               end;

   write(a[2]);

   readln

   end.

   Bình luận

2. @ kynguyen64

   Mời bn xem ảnh dưới ↓↓↓

   # NOCOPY

   # ARA BOSS RIS

   CHÚC BẠN HỌC TỐT !

   NHỚ ĐỂ LẠI CHO KYNGUYEN64 CTLHN+5 SAO+CÁM ƠN NHÉ !

   

   Bình luận