Viết phương trình -Nhập một dãy số nguyên có N phần tử -Xuất ra nàm hình dãy số vừa nhập . – tính tổng bình phương các phân tử là số dương trong dãy

0 bình luận về “Viết phương trình -Nhập một dãy số nguyên có N phần tử -Xuất ra nàm hình dãy số vừa nhập . – tính tổng bình phương các phân tử là số dương trong dãy”

1. Program Hotboy;

   Uses crt;

   Var i,n:integer;

   S:longint;

   A:array[1..100] of integer;

   Begin

   clrscr;

   S:=0;

    Write(‘nhap n nguyen duong tu ban phim ‘);

    Readln(n);

    For i:=1 to n do

   Begin

       Write(‘ A[‘,i,’]’);readln(A[i]);

   End;

   For i:=1 to n do

   If (A[i] >0) then

   S:=S+sqr(A[i]);

   Write(‘ Tong cac so la ‘,S);

   Readln

   End.

   Trả lời

2. uses crt;

   var i,n,s:longint;

         a:array[0..100000]of longint;

   begin 

        clrscr;

        write(‘nhap n:’); read(n);

         for i:=1 to n do

              begin

                    write(‘nhap a[‘,i,’]=’); read(a[i]);

              end;

         s:=0;

          for i:=1 to n do

             begin

                    write(a[i],’ ‘);

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

              end;

        writeln; 

         write(s);

   readln

   end.

   Trả lời