Viết chương trình thực hiện yêu cầu sau:
cho một dãy 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ố
làm câu nào cũng đc hết á giúp
program ct;
uses crt;
var i,n,Max,s,d: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(‘hien thi day so theo ngay nang’);
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.
program ct;
uses crt;
var A:array[1..50] of integer;
i,N,max,dem:integer;
S:longint;
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(‘Hien thi day so theo hang ngang: ‘);
for i:=1 to N do
write(A[i]);
S:=0; max:=A[1];
for i:=1 to N do
begin
S:=S+A[i];
if A[i] >max then max:=i;
end;
writeln(‘Tong cac phan tu cua day la: ‘,S);
writeln(‘Phan tu lon nhat la: A[‘,i,’]’);
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!