Viết chương trình nhập vào số nguyên dương N (N<=50) và mảng một chiều A gồm N số nguyên. Tính và in ra màn hình tổng bình phương các số lẻ có trong m

0 bình luận về “Viết chương trình nhập vào số nguyên dương N (N<=50) và mảng một chiều A gồm N số nguyên. Tính và in ra màn hình tổng bình phương các số lẻ có trong m”

1. uese crt;

   var a: array[1..50] of integer;

   n,s,i: integer;

   begin

   clrscr;

   writeln(‘Nhap so n=’); readln(n);

   for i:=1 to n do begin

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

   end;

   if a[i] mod 2=1 then s:=s+a[i]*a[i];

   writeln(‘tong binh phuong cac so le la:’,s);

   readln;

   end.

   Bình luận

2. program oken;
   uses crt;
   var a: array [1..100] of integer;
       i,n,s:longint;
   begin
           clrscr;
           write(‘Nhap so phan tu cua mang: ‘); readln(n);
           s:=0;
           for i:=1 to n do
                   begin
                           write(‘A[i]: ‘); readln(a[i]);
                           if a[i] mod 2=1 then
                                   s:=s+sqr(a[i]);
                   end;
           writeln(‘Tong binh phuong cac so le trong mang: ‘,s);
           readln;
   end.

   Bình luận