1.Cho N dãy số a1-an tìm tổng căn bậc của dãy số a1..an 2.Cho N dãy số a1…an tìm tích âm của dãy số a1..an

0 bình luận về “1.Cho N dãy số a1-an tìm tổng căn bậc của dãy số a1..an 2.Cho N dãy số a1…an tìm tích âm của dãy số a1..an”

1. uses crt;
   var n,i:longint; s:real; a:array[1..10000]of longint;
   begin
   clrscr;
      write(‘n= ‘);readln(n);
      for i:=1 to n do begin write(‘a[‘,i,’]=’);readln(a[i]); s:=s+sqrt(a[i]); end;
      writeln(s:0:2);
   readln
   end.

   Bình luận