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.

vohoangkhanhphuc

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

LNT0411

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.

Vote (0) Phản hồi (0) 2 năm trước

bebivegeta243

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.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Tìm một số,biết rằng nếu gấp số đó lên 5 lần rồi cộng với 4 thì được 89.

I.Choose A, B, C, or D for each gap in the following sentences: 1. I.........to Singapore three times. A. have gone B. have been C. went D. visited 2. I first..........Melbourne in 2003. A. went B. have been C. have gone D. visited II.Give the correct form of the following verbs. 1.He ( not go )……………….. out last night, he ( stay )…............at home. 2. …………..you ( be )…………………….… to England ? - Yes, I ( be )…………………. three times. III.Complete the dialogue with the Present Perfect or the Simple Past of the verbs in bracket. Minh: I (1.just, hear)............................that Hung is in Australia. Mai: Oh, (2.you/know)............... that? He (3. fly)............... there at the beginning of the month. Minh: (4. you/ hear)...................from him? Does he like the life there? Mai: Yes, I (5. get)............... a letter last week. He (6. tell)............... me about his study. But he (7. not say)...............whether he (8. like)............... the life or not. Perhaps it’s too early to say. He (9. be)............... there for only three weeks. He (10. never/ be) for a foreign country before. IV.Put a word in each gap in the following postcard. July 20 Hi Nick, Hue is a great city. The (1)............... is fine. It’s sunny all the time. The food is cheap and delicious. The (2).................. here are friendly and hospitable. The hotel where we’re staying is small but comfortable. Yesterday we visited the historic monuments. Tomorrow we’re (3)................on a trip along Huong River. You must visit this city someday. You’ll love it. Bye for now! Cheers, Mi V.Write correct sentences, using the words or phrases given. 1. I/ take part/ swimming competition/ school/ last week/ and/ win/ third prize. => ...................................................................................................................................

Tổng hai số là số lớn nhất có hai chữ số khác nhau. Số thứ hai là số bé nhất có hai chữ số. Tìm so thu nhat

Cho hình vuông ABCD. Lấy điểm E trên BC. Từ B kẻ BH vuông góc với DE tại H cắt DC kéo dài tại K A, Chứng minh tứ giác BHCD nội tiếp được đường tròn B, Chưng mimh KC.KD=KH.KB

Viết một đoạn văn từ 5 – 7 câu nêu cảm nghĩ của em về hai câu thơ: Bàn đá chông chênh dịch sử Đảng Cuộc đời cách mạng thật là sang. (Tức cảnh Pác Bó – Hồ Chí Minh)

Giải nha 5sao nào giúp mik vs

cho 2 hàm số y = -x2 và y= -4x + 4 a ) vẽ đồ thị của 2 hàm số đã cho trên cùng 1 mặt phẳng tọa độ b ) tìm tọa độ các giao điểm của 2 đồ thị trên ( bằng phép tính )

Giúp mình bài 11 với !!!!! Mình đang cần gấp , ngày mai nộp r .

Các bạn học ơi , có thể giải giúp mình bài này k? Mình cảm ơn trước ạ❤

Tìm tất cả các bội có giá trị tuyệt đối nhỏ hơn 20 của (-5)

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến