Cho 1 dãy số gồm n số nguyên dương(N<=50). Thực hiện các yêu cầu sau: a. Nhập dãy số, với số lượng nhập vào từ bàn phím b. Hiển thị dãy số theo hàng ngang c. Tính tổng các phần tử của dãy d. Tìm phần tử lớn nhất của dãy số e. Đếm xem có bao nhiêu số chẵn trong dãy số Nhanh lên mọi người đang thi 60 điểm
program ct;
uses crt;
var A:array[1..50] of integer;
i,n,dem,M:integer;
S:integer;
begin clrscr;
write(‘Nhap so phan tu n: ‘); readln(n);
for i:=1 to n do
begin
writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);
end;
writeln;
write(‘Hien thi day so theo hang ngang: );
for i:=1 to n do
write(A[i]:3);
S:=0;
for i:=1 to n do
S:=S+A[i];
writeln(‘Tong cac phan tu cua day la: ‘,S);
M:=A[1];
for i:=1 to n do
if A[i]>M then M:=A[i]
writeln(‘Phan tu lon nhat la: ‘,M);
dem:=0;
for i:= 1 to n do
if A[i] mod 2=0 then dem:=dem+1;
writeln(‘So phan tu chan trong day la: ‘,dem);
readln;
end.
Học tốt!
program ct;
uses crt;
var s,i,n,d,Max:integer;
A:array[1..50] of integer;
begin
clrscr;
write(‘nhap n:=’);readln(n);
for i:=1 to n do
begin
write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);
end;
writeln;
write(‘day so theo hang’);
for i:=1 to n do write(A[i]:4);
s:=0;
for i:=1 to n do s:=s+A[i];
writeln(‘tong cac phan tu trong day la’,s);
Max:=A[1];
for i:=2 to n do
if Max<A[i] then Max:=A[i];
writeln(‘phan tu lon nhat trong day la’,Max);
d:=0;
for i:=1 to n do
if A[i] mod 2=0 then d:=d+1;
writeln(‘so chan trong day la:’,d);
readln
end.