YOMEDIA
NONE

Viết chương trình Pascal nhập N số nguyên từ bàn phím in ra màn hình tổng tích và trung bình các số tự nhiên vừa nhập?

Viết chương trình Pascal thực hiện các công việc sau:

- Nhập N số nguyên từ bàn phím

- In ra màn hình tổng, tích, tb các số tự nhiên vừa nhập

- In ra màn hình các số tự nhiên vừa nhập là số chẵn

- In ra màn hình các số tự nhiên vừa nhập là số lẻ

- In ra màn hình số tự nhiên lớn nhất và nhỏ nhất

Mai e thi rồi mọi người giúp e với ạ. Em cảm ơn nhiều

Theo dõi Vi phạm
ADSENSE

Trả lời (1)

  • Hiền Ruby

    program <Tên bạn tự chọn>;

    uses crt;

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

    i, n, Max, Min: integer;

    begin

    clrscr;

    writeln('Nhap so luong so nguyen:'); readln(n);

    for i:=1 to n do begin writeln('A[',i,']='); readln (A[i]) end;

    writeln('Cac so chan trong day so la:');

    for i:=1 to n do

    if A[i] mod 2 = 0 then writeln(A[i]);

    writeln('Cac so le trong day so la:');

    for i:=1 to n do

    if A[i] mod 2 = 1 then writeln(A[i]);

    Max:=A[1];

    for i:=2 to n do

    if Max<A[i] then Max:=A[i];

    Min:=A[1];

    for i:=2 to n do

    if Min>A[i] then Min:=A[i];

    writeln('So nho nhat trong day so la', Min);

    writeln('So lon nhat trong day so la', Max);

    readln

    end.

    Good luck!

      bởi Hiền Ruby 07/11/2018
    Like (0) Báo cáo sai phạm
Cách tích điểm HP

Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!

Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản

Gửi câu trả lời Hủy
 
NONE

Các câu hỏi mới

AANETWORK
 

XEM NHANH CHƯƠNG TRÌNH LỚP 8

 

YOMEDIA
AANETWORK
OFF