viết chuoưng trình nhập vào dãy số gồm n số nguyên dương +IN DÃY SỐ N RA MÀN HÌNH +TÍNH TỔNG BÌNH PHƯƠNG CÁC SỐ LẺ

0 bình luận về “viết chuoưng trình nhập vào dãy số gồm n số nguyên dương +IN DÃY SỐ N RA MÀN HÌNH +TÍNH TỔNG BÌNH PHƯƠNG CÁC SỐ LẺ”

1. uses crt;
   var lst:Array[1..100] of integer;
       i,n,tong:longint;
   Begin
    clrscr;
    write(‘Nhap n: ‘);
    readln(n);
    for i:=1 to n do
    Begin
     write(‘Phan tu thu ‘,i,’ = ‘);
     readln(lst[i]);
     if lst[i] mod 2 = 1 then tong:=tong+lst[i]*lst[i];
    end;
    for i:=1 to n do write(lst[i],’ ‘);
    writeln;
    write(‘Tong la: ‘,tong);
    readln;
   end.

   Bình luận