Câu 1: Viết công thức nhập vào N số nguyên và in ra màn hình số lớn nhất trong dãy
Câu 2: Viết công thức nhập vào N số nguyên và in ra màn hình số nhỏ nhất trong dãy
[Ai có câu trả lời chính xác và nhanh nhất mình sẽ vote 5sao và bình chọn là câu trả lời hay ????
1.
program bai1;
var a:array[1..100] of longint;
i,n,max:longint;
begin
wrtie(‘N= ‘);readln(n);
for i:=1 to n do
begin
write(‘A[‘,i,’]= ‘);
readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
writeln(‘So lon nhat la ‘,max);
write(‘Vi tri la ‘);
for i:=1 to n do
if a[i]=max then write(i,’ ‘);
readln
end.
Câu 2.
uses crt;
var n,i,min:integer;
a:array[1..100] of integer;
begin
clrscr;
write(‘nhap so phan tu cua day:’);readln(n);
for i:=1 to n do
begin
write(‘nhap a[‘,i,’]:’);readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if a[i]<min then min:=a[i];
write(‘gia tri nho nhat cua day so la:’,min);
readln;
end.
#Đúng hônq ta?
Gộp câu 1 và 2:
var a: array[1..250] of integer;
i, n: byte;
max, min: integer;
Begin
Write(‘nhap n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] = ‘); readln(a[i]);
If i=1 then
Begin
Max:=a[1]; min:=a[1];
End
Else
Begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
End;
End;
Writeln(‘so lon nhat: ‘, max);
Writeln(‘so be nhat: ‘, min);
Readln
End.