Question

viết chương trình nhập vào biến mảng N số nguyên, với N nhập từ bàn phím

- in ra dãy số vừa nhập

-in ra số lớn nhất của dãy số

-tính và in ra tổng các số của dãy số

giúp mjk với

Answer 1

uses crt;
var i,n,max,s:longint; a:array[1..100000] of longint;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('a[',i,'] = ');readln(a[i]);
end;
write('Day so vua nhap la: ');
for i:=1 to n do
write(a[i],','); writeln;
for i:=1 to n do
if a[i]>max then max:=a[i];
write('So lon nhat cua day so la: ',max); writeln;
for i:=1 to n do
s:=s+a[i];
write('Tong cac so cua day so la: ',s);
readln
end.