Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Duongtrucqui

Viết Ct tính tổng Bình phương các số lẻ chẵn và sắp xếp theo thứ tự chẵn trước lẽ sau trong 1 mảng gồm n phần tử
Giúp mik vs ạ
MIk cảm ơn ạ

Nguyễn Lê Phước Thịnh
21 tháng 5 2020 lúc 21:42

uses crt;

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

n,i,t,t1:integer;

begin

clrscr;

write('Nhap so phan tu:'); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

t1:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then t:=t+sqr(a[i])

else t1:=t1+sqr(a[i]);

end;

writeln('Tong binh phuong cac so chan la: ',t);

writeln('Tong binh phuong cac so le la: ',t1);

readln;

end.


Các câu hỏi tương tự
Maiiii
Xem chi tiết
Kiều My
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Duongtrucqui
Xem chi tiết
Hoà Trần
Xem chi tiết
Bảo Ngân
Xem chi tiết
Nguyễn Đoàn Trường Sơn
Xem chi tiết
Lê Bích Thủy
Xem chi tiết
Nguyễn Khánh Linh
Xem chi tiết