nhập mảng d 100 phần tử số nguyên 1. Xuất mảng d 2. Tính tổng phần tử d 3. Tìm phần tử lớn nhất
2 câu trả lời
program Min;
uses crt;
var A:array[1..100] of integer;
max,i,S:integer;
begin
clrscr;
S:=0;
for i:=1 to 100 do
begin
write('Nhap phan tu thu ',i,': '); readln(A[i]);
S:=S+A[i];
end;
max:=A[1];
for i:=1 to 100 do
write(A[i]:4);
writeln('');
for i:=2 to 100 do if A[i]>max then max:=A[i];
writeln('Tong la: ',S);
writeln('Phan tu lon nhat la: ',max);
readln
end.
Program BTT;
Uses crt;
Var A: array[1..100] of longint;
n,i,s,max: longint;
Begin
Clrscr;
For i:=1 to 100 do
Begin
Write('A[',i,'] = ');
Read(A[i]);
s:=s+A[i];
End;
For i:=1 to 100 do Write(A[i],' ');
Writeln;
Write('S = ',s);
max:=A[1];
For i:=2 to n do
If A[i]>max then max:=A[i];
Write('Max = ',max);
Readln
End.