Đáp án: Nhập vào n số thực, tìm số lớn nhất - uses crt; var i,maxinteger; narray[-48984898] of extended; begin write(ʹnhap nʹ);readln(n); max=n[1]; for i=1 to lenght(n) do if n[i] >max then max=n[i]; writeln(ʹMax=ʹ,max); readln; end

uses crt; var i,maxinteger; narray[-48984898] of extended; begin write(ʹnhap nʹ);readln(n); max=n[1]; for i=1 to lenght(n) do if n[i] >max then max=n[i]; writeln(ʹMax=ʹ,max); readln; end

uses crt;var aarray[-100010000] of extended;n,maxextended;ilongint;beginclrscr;write(ʹso luong phan tu ʹ);readln(n);i=1;repeatbeginwrite(ʹa[ʹ,i,ʹ]=ʹ);readln(a[i]);i=i+1;end;untili>n;max=a[1];while i<=n doif max<a[i] then beginmax=a[i];i=i+1;end;writeln(ʹgia tri lon nhatʹ,max52);readlnend

Ngô Thị Thuý Hằng

1 năm trước

Nhập vào n số thực, tìm số lớn nhất

Xem đáp án

13 lượt xem

2 câu trả lời

duongvietbach2007

1 năm trước

uses crt;

var i,max:integer;

n:array[-4898..4898] of extended;

begin

write('nhap n:');readln(n);

max:=n[1];

for i:=1 to lenght(n) do if n[i] >max then max:=n[i];

writeln('Max=',max);

readln;

end.

Khoa Đăng

1 năm trước

uses crt;
var a:array[-1000..10000] of extended;
n,max:extended;
i:longint;
begin
clrscr;
write('so luong phan tu: ');
readln(n);
i:=1;
repeat
begin
write('a[',i,']=');
readln(a[i]);
i:=i+1;
end;
until
i>n;
max:=a[1];
while i<=n do
if max<a[i] then
begin
max:=a[i];
i:=i+1;
end;
writeln('gia tri lon nhat',max:5:2);
readln
end.