Bài 8. Lặp với số lần chưa biết trước

Jimin Park

Viết chương trình nhập 1 dãy số gồm n số ( n nhập từ bàn phím) tìm và in ra giá trị lớn nhất trong dãy số vừa nhập

Trà My My
16 tháng 5 2019 lúc 20:37

Var z:array[1..1000] of longint;

n, i, max:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

max:= z[1];

End;

For i:=1 to n do begin if max<z[i] then max:=z[i];

Writeln('So lon nhat la ',max);

End.

Bình luận (0)
Nguyễn Trung Hiếu
16 tháng 5 2019 lúc 21:20

uses crt;
Var a:array[1..100000] of longint;
i,n,max:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if a[i]>max then max:=a[i];
write('Gia tri lon nhat trong day so vua nhap la: ',max);
readln
end.

Bình luận (0)
Rapton321
16 tháng 5 2019 lúc 20:26

uses crt;

var i,n,m:longint;

a:array[1..1000]of integer;

begin

write('nhap do dai cua day so:');readln(n);

for i:=1 to n do begin

write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);

if i=1 then m:=a[1]

else if a[i]>m then m:=a[i];

end;

write('gia tri lon nhat trong day so la:',m);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Cuong Ly
Xem chi tiết
HUY HUỲNH QUANG
Xem chi tiết
Phan Thị Phương Thy
Xem chi tiết
Nguyễn Phan Bảo Tin
Xem chi tiết
su nè
Xem chi tiết
........................
Xem chi tiết
NGUYỄN LÊ XUÂN THỊNH
Xem chi tiết
Yết Thiên
Xem chi tiết
Khánh linh
Xem chi tiết