Viết chương trình pascal nhập một mảng 10 số bất kì in ra màn hình tổng bình phương của các số trong mảng

0 bình luận về “Viết chương trình pascal nhập một mảng 10 số bất kì in ra màn hình tổng bình phương của các số trong mảng”

1. program oken;
   uses crt;
   var a: array [1..10] of integer;
       s,n,i: integer;
   begin
       clrscr;
       s:=0; writeln(‘NHAP 10 PHAN TU CUA MANG A’);
       for i:=1 to 10 do
           begin
               write(‘A[‘,i,’]: ‘);
               readln(a[i]);
               s:=s+sqr(a[i]);
           end;
       writeln(‘Tong binh phuong: ‘,s);
       writeln(‘NHAN ENTER DE KET THUC’);
       readln;
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n,S:integer;

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

   begin

   clrscr;

      for i:=1 to 10 do                      

   begin

     write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     S:=0;

        for i:=1 to 10 do S:=S+(A[i]*A[i]);

          writeln(‘tong binh phuong la:’,S);

   readln

   end.

   Bình luận