Question

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

Answer 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!