Question

viể chương trình pascal nhập vào dãy số nguyên gồm N phần tử điều kiện ; 1lớn hơn hoặc bằng N và bé hơn hoặc bằng 350

a, hãy tính và in ra màn hình tổng các phần tử vừa nhập.

b, tìm và in ra màn hình số lớn nhất trong dãy và vị trí của số đó.

c,tìm và in ra màn hình những số chia hết cho 3 có trong dãy.

d,tính tổng các số chia hết cho 3 có trong dãy tìm được ở câu c .

lưu ý ; làm 4 yêu cầu trên 1 chương trình pascal

mong thầy cô và các bạn giúp em bài này với ạ

Answer 1

uses crt;
var a:array[1..350]of integer;
n,i,t,max,t1:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------cau-a----------------------------}
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('tong cac phan tu vua nhap la: ',t);
{------------------------------cau-b----------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln('so lon nhat cua day la: ',max);
writeln('vi tri cua no lan luot la: ');
for i:=1 to n do
if max=a[i] then write(i:4);
{------------------------------cau-c----------------------------}
writeln;
writeln('cac so chia het cho 3 co trong day la: ');
t1:=0;
for i:=1 to n do
if a[i] mod 3=0 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
{------------------------------cau-d---------------------------}
writeln;
writeln('tong cac so chia het cho 3 co trong day la: ',t1);
readln;
end.