program ct;
uses crt;
var A:array[1..100] of integer;
i,n:integer;
S,H:longint;
begin clrscr;
write('Nhap so phan tu n: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap phan tu thu ',i,': '); readln(A[i]);
end;
S:=0; H:=0;
if A[i] mod 2=0 then S:=S+A[i];
if A[i] mod 2=1 then H:=H-A[i];
writeln('Tong cac so chan la: ',S);
writeln('Hieu cac so le la: ',H);
readln;
end.
Học tốt!
Program Hotboy;
Uses crt;
Var i,n:integer;
S,Ni:longint;
A:array[1..100] of integer;
Begin
clrscr;
S:=0; Ni:=0;
Write('nhap n nguyen duong tu ban phim ');
Readln(n);
For i:=1 to n do
Write(' A[',i,']');readln(A[i]);
End;
Ni:=Ni-A[i];
S:=S+A[i];
Write(' Tong cac so la ',S);
Write('Hieu cac so la',N);
Readln
End.
Sông ngòi chịu ảnh hưởng của địa hình và khí hậu như thế nào
Từ khổ thơ thứ hai trong bài thơ 'Viếng lăng Bác' của Viễn Phương hãy viết một đoạn văn ngắn khoảng 200 từ nêu suy nghĩ về lòng biết ơn tring thời đại ngày nay.
Giúp mình đề này nha! Giải hết nha! ngắn mà
Giá trị của chữ số 9 trong số 28, 953 là
WTO là tên viết tắt của tổ chức A. Thương mại thế giới. B. Quỹ tiền tệ quốc tế. C. Khu vực mậu dịch tự do châu Á. D. Diễn đàn hợp tác các kinh tế châu Á -Thái Bình Dương.
cho hình tam giác ABC có BC =8cm .gọi d là điểm thuộc cạnh BC sao cho D cách B 0,2dm. Hãy tìm vị trí của điểm M thuộc cạnh AB sao cho diện tích AMDC bằng 7/8 diện tích hình tam giác ABC? giúp mình đi mình đang cần.
Làm hộ em ạ Em hết điểm mất rồi Em cho 5 *
Ngày đầu, 5 học sinh đóng khung xong 15 bức tranh mất 3 giờ. Hỏi hôm sau, 8 học sinh đóng khung xong 32 bức tranh mất bao lâu ? ( năng suất mỗi học sinh như nhau
Cho biết x>y, chứng tỏ rằng-5×-2019<-5y-2019
Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến
