Viết chương trình tính tổng bình phương của các số âm trong 1 mảng gồm N phần tử với N<=100

0 bình luận về “Viết chương trình tính tổng bình phương của các số âm trong 1 mảng gồm N phần tử với N<=100”

1. Uses crt;
   Var L:Array[1..100] of longint;
          i, n, s: longint;
   Begin
        Clrscr;
        Write(‘Nhap n = ‘); readln(n);
        For i:=1 to n do begin write(‘L[‘,i,’]=’); readln(L[i]); end;
        s:=0;
        For i:=1 to n do if L[i]<0 then s:=s+sqr(L[i]);
        Writeln(s:0:2);
   Readln
   End.

   Bình luận

2. uses crt;

   var n,i:integer;

   s:real;

   a:array[1..100] of real

   s:real;

   begin

   clrscr;

   write(‘Nhap n: ‘);readln(n);

   for i:=1 to n do begin

   write(‘Nhap so thu ‘,i,’: ‘);readln(a[i]);

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

   end;

   writeln(‘Tong la: ‘,s:1:0);

   readln

   end.

   Bình luận