CỨU EM VỚI , SÁNG MAI EM THI RỒI= Viết chương trình nhập từ bàn phím số nguyên dương N ( N<= 100) và dãy số nguyên A1, A2, A3,…An có trị tu

CỨU EM VỚI , SÁNG MAI EM THI RỒI…………
Viết chương trình nhập từ bàn phím số nguyên dương N ( N<= 100) và dãy số nguyên A1, A2, A3,…An có trị tuyệt đối nhỏ hơn 1000. Hãy đưa ra màn hình những thông tin sau: a. Tổng số nguyễn chẵn, tổng số nguyên lẻ trong dãy số b. Tổng giá trị của dãy số

0 bình luận về “CỨU EM VỚI , SÁNG MAI EM THI RỒI= Viết chương trình nhập từ bàn phím số nguyên dương N ( N<= 100) và dãy số nguyên A1, A2, A3,…An có trị tu”

  1. uses crt;
    var a: array[1..100] of integer;
    var n,i,sc,sl,s: integer;
    begin
    clrscr;
    write (‘nhap n: ‘);  readln (n);
    for i:=1 to n do
    begin
    repeat
    write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);
    if abs(a[i])<1000 then
    begin
    s:=s+a[i];
    if a[i] mod 2=0 then sc:=sc+a[i];
    if a[i] mod 2<>0 then sl:=sl+a[i];
    end;
    until abs(a[i])<1000;
    end;
    writeln (‘tong cac so le trong day: ‘,sl);
    writeln (‘tong cac so chan trong day: ‘,sl);
    writeln (‘tong gia tri cua day so: ‘,s);
    readln;
    end.

    Chúc ban thi tốt nhea !!!

    ꧁༺???????????? ????????????̉ ????????????????????????ッ

    Bình luận

Viết một bình luận