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Ẻ
2 câu trả lời
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.
uses crt;
var A : array [1 .. 100] of integer;
i, n, s : integer;
begin
clrscr;
write('Nhap so n = '); readln(n);
for i := 1 to n do
begin
write('Nhap so thu ', i ,' = '); readln(A[i]);
if A[i] mod 2 <> 0 then s := s + sqr(A[i]);
end;
write('Day da nhap : ');
for i := 1 to n do write(A[i], ' ');
writeln; write('Tong binh phuong cac so le : ', s);
readln
end.
