Viết ct pascal nhập 1 mảng gồm 10 số thực bất kì .Báo ra màn hình tổng bình phương của các số âm trong mảng

0 bình luận về “Viết ct pascal nhập 1 mảng gồm 10 số thực bất kì .Báo ra màn hình tổng bình phương của các số âm trong mảng”

1. program bai_tap;
   uses crt;
   var a:array[1..10] of integer;
   n,i:byte;
   s,max,min:integer;
   begin
   clrscr;
   write(‘nhap so luong phan tu cua mang: ‘);
   readln(n);
   for i:= 1 to n do
   begin
   write(‘nhap phan tu thu [‘,i,’]= ‘);
   readln(a[i]);
   end;
   {cau a) ======================}
   writeln(‘mang ban vua nhap la: ‘)
   for i:= 1 to n do
   write(a[i]:4);
   writeln;
   {cau b) ======================}
   s:=0;
   for i:= 1 to n do
   s:=s+a[i];
   writeln(‘tong cac phan tu trong mang la: ‘,s);
   {cau c) ======================}
   max:=a[1];
   for i:= 1 to n do
   if max < a[i] then max:=a[i];
   writeln(‘gia tri max la: ‘,max);
   {cau d) ======================}
   min:=a[i];
   for i:= 1 to n do
   if min > a[i] then min:=a[i];
   writeln(‘gia tri nho nhat la: ‘,min);

   readln

   Bình luận

2. program binh_phuong;
   uses crt;
   var A:array[1..10] of real;
       i:byte;
       t:real;
   begin
           clrscr;
           t:=0;
           for i:=1 to 10 do
                   begin
                           write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);
                           if A[i]<0 then t:=t+A[i]*A[i];
                   end;
           write(‘Tong binh phuong cac so am la: ‘,t:0:4);
           readln;
   end.

   Bình luận