Viết chương trình bằng kiểu mảnh Bài 1: Viết chương trình nhập từ bàn phím mảng A gồm 100 phần tử thuộc kiểu nguyên. Tính và đưa ra màn hình tổng các số nguyên dương trong mảng. Bài 2: Hãy viết chương trình tìm phần tử lớn nhất của dãy A gồm N phần tử thuộc kiểu nguyên a1, a2, …., aN (n≤100).
2 câu trả lời
Bài 1:
program Min;
uses crt;
var A:array[1..100] of longint;
S,i:longint;
begin
clrscr;
for i:=1 to 100 do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
for i:=1 to 100 do
if A[i]>0 then S:=S+A[i];
readln
end.
Bài 2:
program Min;
uses crt;
var A:array[1..100] of longint;
i,n,max:longint;
begin
clrscr;
write('Nhap n (n<=100): '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if max<A[i] then max:=A[i];
write('Phan tu lon nhat la: ',max);
readln
end.
Bài 2:
Var a:array[1..100] of integer;
i,n,max:integer;
begin
write('nhap so phan tu cua mang:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('phan tu lon nhat:',max);
readln
end.