ai chỉ mình bài tin gấp chiều kt rồi

[hanzmi]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

bai 1 : Viết phương trình nhập 1 mảng n vào số nguyên. In ra màn hình phần tử lớn nhất và tổng các phân tử chẵn trong mảng
Bài 2: Viết chương trình nhập 1 mảng n vào số nguyên . In ra màn hình phần tử nhỏ nhất va tổng các số lẻ trong mảng:|

 

[megamanxza]

Bài 1:

Uses crt;
var a: array [1..1000] of integer;
tong, i, n, max: integer;
begin
clrscr;
write ('Nhap so phan tu: '); readln (n);
for i:= 1 to n do
begin
write ('Nhap phan tu thu ',i,': '); readln (a);
if a mod 2 = 0 then tong:=tong+a;
end;
max:=a[1];
for i:= 2 to n do
if max<a then max:=a;
writeln ('Tong cac phan tu chan la ',tong);
write ('Gia tri lon nhat la ',max);
readln
end.

Bài 2:

Uses crt;
var a: array [1..1000] of integer;
tong, i, n, min: integer;
begin
clrscr;
write ('Nhap so phan tu: '); readln (n);
for i:= 1 to n do
begin
write ('Nhap phan tu thu ',i,': '); readln (a);
if a mod 2 <> 0 then tong:=tong+a;
end;
min:=a[1];
for i:= 2 to n do
if min>a then min:=a;
writeln ('Tong cac phan tu le la ',tong);
write ('Gia tri nho nhat la ',min);
readln
end.

Nhấn thanks và Đúng cho mình nha!