OPTADS360
ATNETWORK
RANDOM
ON
YOMEDIA
Banner-Video
IN_IMAGE

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

  bởi hoàng duy 07/11/2018
AMBIENT-ADSENSE/lession_isads=0
QUẢNG CÁO
 

Câu trả lời (1)

  • 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
 
 

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

NONE
OFF

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