Viết chương trình Pascal nhập 1 mảng 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 chương trình Pascal nhập 1 mảng 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. uses crt;

   var a: array[1..10] of real;

   i: integer; s:real;

   begin

         clrscr;

   for i:=1 to 10 do readln (a[i]);

   for i:=1 to 10 do

         if a[i]<0 then s:=s+sqr(a[i]);

   writeln (‘tong binh phuong la: ‘,s);

   readln;

   Bình luận

2. uses crt;
   var a:array[1..10] of real;
           i:longint;
           s:extended;
   begin
           clrscr;
           for i:=1 to 10 do
                   begin
                           write(‘Nhap gia tri phan tu thu ‘,i,’: ‘); readln(a[i]);
                           if a[i]<0 then s:=s+sqr(a[i]);
                   end;
           writeln(‘Tong binh phuong cac so am: ‘,s:0:2); 
           readln;
   end.

   Bình luận