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

Những câu hỏi liên quan
Đặng Gia Ân
Xem chi tiết
leanhdung
Xem chi tiết
Huy quang
3 tháng 10 2017 lúc 19:59

Mình giải thích được, tuy nhiên để hiểu rõ hơn, vào trang web sau để xem bạn nhé:

https://bachkhoa-aptech.edu.vn/cac-thanh-phan-co-ban-trong-may-tinh.html

Trần Tú Quyên
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 3 2020 lúc 20:52

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('n='); readln(n);

if (n>0) and (n<=100) then

begin

t:=0;

for i:=1 to n do

begin

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

if (a[i] mod 2=0) or (a[i] mod 2=1) then t:=t+a[i];

end;

writeln('tong cac phan tu chan hoac le trong day la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

Khách vãng lai đã xóa
Trương Minh Quân
Xem chi tiết
Nguyễn Đức Long
19 tháng 10 2023 lúc 8:05

ko hiểu

Tai Nguyen
22 tháng 10 2023 lúc 11:29

bàn phím,chuột,...

Nguyen Cu Teo
Xem chi tiết
Nguyen Cu Teo
Xem chi tiết
Đỗ Thị Thảo Hiền
1 tháng 2 2016 lúc 12:29

Bn lười z ??? tự lm một số bài đi nha,bài nào khó thì hẵng hỏi ><

duyệt đi

Nguyen Cu Teo
Xem chi tiết
Kim Nam Tuan
Xem chi tiết
lan anh
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 2 2022 lúc 8:21

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

for i:=1 to n do t:=t+a[i];

writeln(t);

readln;

end.