viết chương trình pascal sử dụng biến mảng để
a,nhập từ bàn phím các phần tử của một dãy số,độ dài của dãy cũng được nhập từ bàn phím
b,in ra giá trị lớn nhất trong dãy vừa nhập ở câu a
c,tính tổng các phần tử chẵn của dãy số vừa nhập ở câu a
làm từng câu một nha!!!!!!!!!!!!!
viết chương trình pascal sử dụng biến mảng để a,nhập từ bàn phím các phần tử của một dãy số,độ dài của dãy cũng được nhập từ bàn phím b,in ra giá trị
By Emery
var n,i,k,j,s,max:longint;
a:array [1..100] of integer;
begin
write(‘nhap n pt’);readln(n); max:=0;
for i:=1 to n do
begin
write(‘pt thu’,i);readln(a[i]);
if a[i]>max then a[i]:=max;
if a[i] mod =0 then s:=s+a[i];
end;
write(max);
write(s);
readln
end.
uses crt;
var a:array[1..100] of integer;i,n,max:integer;s:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap cac so nguyen: ‘); read(a[i]);
if a[i] mod 2<>1 then s:=s+a[i];
end;
write(‘Day so nguyen: ‘);
for i:=1 to n do write(a[i],’ ‘);
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
writeln;
write(‘Gia tri lon nhat: ‘,max);
writeln;
write(‘Tong cac so chan trong day: ‘,s);
readln;
end.