Đăng nhập để hỏi chi tiết
Giai giup mk bai pascal nay vs a. Cam on moi nguoi. Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập.
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
Program BTH;
uses crt;
var n,i,k,t:longint;
a:array[1..100000] of longint;
Begin
clrscr;
Write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' : ');readln(a[i]);
end;
for i:=1 to n do
Begin
If a[i] mod 2=0 then k:=k+a[i] else t:=t+a[i];
end;
Writeln('Tong so chan la: ',k);
writeln('Tong so le la: ',t);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
51 vote
Cho mình xin câu tl hay nhất nha
Rồi nha bạn. Thankss
Ko có gì :)))
Program;
Uses CRT;
Var A:Array[1..50] of Integer;
Var i,n,tc,tl:Integer;
Begin
Clrscr;
Write('Nhap n: ');
Readln(n);
For i:=1 To n Do
Begin
Write('Nhap gia tri cho phan tu thu ',i,' :');
Readln(A[i]);
End;
Write('Cac phan tu cua mang la: ');
For i:= 1 To n Do
Write(A[i],' ');
For i:=1 To n Do
If A[i] mod 2 = 0 then
tc:=tc+A[i]
Else
tl:=tl+A[i];
Writeln;
Writeln('Tong cac so chan la: ',tc);
Write('Tong cac so le la: ',tl);
Readln;
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Đăng nhập để hỏi chi tiết
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho 2K11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
>> Học trực tuyến lớp 8 trên Tuyensinh247.com Đầy đủ khoá học các bộ sách (Kết nối tri thức với cuộc sống; Chân trời sáng tạo; Cánh diều). Cam kết giúp học sinh lớp 8 học tốt, hoàn trả học phí nếu học không hiệu quả.
 |
 |
 |
 |
 |
 |
Bạn muốn hỏi điều gì?
Đặt câu hỏiCÂU HỎI MỚI NHẤT
- vẽ hình giúp e bài 9 với ạ,e chỉ cần vẽ hình thuii ạ
Câu 1: Những sự việc bất ngờ xảy ra, có nguy cơ đe dọa nghiêm trọng đến sức khỏe, tính mạng, gây thiệt hại về tài sản, môi trường cho bản thân, gia đình và cộng đồng xã hội được gọi là A. tình huống s ...
Giúp e câu e , f , g , i voi ạ
- Giúp em bài này với a Em cần gấp
- Bài 1: Hai lực F 1 , F2 song song cùng chiều, cách nhau đoạn 30cm. Một lực có F1= 18N, hợp lực F =24N. Điểm đặt của hợp lực cách điểm đặt của lực F2 đoạn là bao nhiêu? Bài 2: Một người gánh 2 thúng, t ...
- giải đúng sai giùm mình với
(X nhân 0,25 + 2012 ) nhân 2013 ( bài này tìm x nha mọi ng)B)chứng minh EF vuông góc AK
C)Tính AH theo R
- Cho tam giác ABC vuông tại A (ab<ac) .D là trung điểm của ab .Kẻ DN vuông góc với BC tại N (N thuộc BC).a)C/m AB.BD=BC.NB b) AC^2 =NC^2-NB^2.Giúp mik vs ạ
- Thực hiện phép tính sau. Đây: 6x^5:3x^3
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
1204
12729
1221
Giới hạn là bao nhiên bạn