Cho số nguyên dương n (n<=100) và dãy a gồm n số nguyên a1,a2,....an . a, hiển thị dãy a ra màn hình b, tìm max của dãy a C, tính tổng của dãy a. Mn giúp mk vs ạ
Cho số nguyên dương n (n<=100) và dãy a gồm n số nguyên a1,a2,-an . a, hiển thị dãy a ra màn hình b, tìm max của dãy a C, tính tổng của dãy a. Mn
By Kylie
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write(‘n=’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
{—————————–xu-ly——————————}
t:=0;
for i:=1 to n do
if a[i] mod 2=1 then t:=t+sqr(a[i]);
writeln(‘tong binh phuong cac so hang le trong day A la: ‘,t);
readln;
end.
program ct;
uses crt;
var i,S,n,Max:integer;
A:array[1..100] 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;
write(‘day so vua nhap la’);
for i:=1 to n do
write(A[i],’ ‘);
Max:=A[1]; S:=0;
for i:=1 to n do
begin
if Max<A[i] then Max:=A[i];
S:=S+A[i];
end;
writeln(‘gia tri lon nhat la’,Max);
writeln(‘tong la:’,S);
readln
end.