Tin học [ tin 8] viết chương trình tìm giá trị lớn và nhỏ nhất của dãy số

[ka1412]

Mình sửa lại vì sửa trực tiếp minh không sửa được.
Program Max;

Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn : integer;
Begin

clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do
Readln(a);

Max:=a[1];
for i:=2 to n do
If a> max then max:=a​

writeln('Phan tu co gia tri lon nhat cua mang la:', max);​

writeln;​

End.

Phải sửa là
a
bạn ơi

 

[Hạ Mộcc]

Phải sửa là a bạn ơi

Mình biết nhưng không hiểu sao mình nhập mà nó cứ bị sao ý-.-

 

[Sơn Nguyên 05]

Mình sửa lại vì sửa trực tiếp minh không sửa được.
Program Max;

Uses crt;
Var a:array[1..100] of integer;
i, max, gtln, min, gtnn : integer;
Begin

clrscr;
writeln(' Nhap so luong phan tu cua mang n=');
readln(n)
writeln('Moi ban nhap mang:');
for i:=1 to n do
Readln(a);

Max:=a[1];
for i:=2 to n do
If a> max then max:=a;​

writeln('Phan tu co gia tri lon nhat cua mang la:', max);​

writeln;​

End.

Sửa chút nhé!
Sau for ...
Write(‘nhap a[‘,i,’]=‘); Realn(a); ...

 

[ka1412]

Mình biết nhưng không hiểu sao mình nhập mà nó cứ bị sao ý-.-

Bạn chọn nhập mã ấy

 

[Hạ Mộcc]

Program GTLN;
uses crt;
var a:array[1..100] of integer;
i,max,n:integer;
begin
clrscr;
writeln('Nhap so luong phan tu mang:'); readln(n);
writeln('Moi ban nhap mang:');
for i:=1 to n do
Readln(a[i]);
Max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('so lon nhat:');
writeln(max);
writeln;
End.