Sử dụng biến mảng viết chương trình nhập vào một dãy số gồm N số nguyên từ bàn phím. In ra màn hình giá trị lớn nhất của dãy số đó

danghuuchi

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

ctvloga170

program Max;

uses crt;

Var

i, n, s, Max: integer;

A: array[1..100] of integer;

Begin

clrscr;

write('Hay nhap do dai cua day so, N = '); readln(n);

writeln('Nhap cac phan tu cua day so:');

For i:=1 to n do

Begin

write('a[',i,']=');

readln(a[i]);

End;

Max:=a[1];

For i:=2 to n do

Begin

if Max<a[i] then Max:=a[i];

End;

writeln('So lon nhat la Max = ',Max);

Readln

End.

Vote (0) Phản hồi (0) 2 năm trước

tuyetanhnguyenthi152

Uses crt;

var a: array[1..100] of integer

max,n ,i: integer;

begin

clrscr;

writeln('Nhap so phan tu mang:'); readln(n);

for i:= 1 to n do

begin

writeln('Nhap so thu',i,':'); READLN(a[i]);

end;

max:=a[1];

for i:= 1 to n do

if max<a[i] then begin max:=a[i];

end;

writeln('Gia tri lon nhat cua day so la:',max);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Cho tam giác ABC có phân giác BD.E thuộc tia đối tia BA sao cho BE=BC .Chứng minh:BD//EC.

vẽ cho mk 1 đôi BFF nữ ik ( digi nhaaaaaa)

Giúp mình với ạ cảm ơn nhiều moazh

được câu nào giải hộ mình câu với

Giải gấp giúp mk mấy câu khoanh tròn ấy Giúp mk vs nha đag cần gấp

Vẽ cho mình anh trong ảnh dưới đây nha ^^( anime hay chibi , digi hay tradi đều được nha) ko cần màu đâu nhưng giống giống 1 tí nhé ^^

Ai giải hộ em với ạ, mai e thi rồi

Một hình bình hành có hai cạnh kề bằng x và y, một góc bằng 45 độ. Diện tích hình bình hành bằng.....?

một ô tô đi từ A đến B với vận tốc 30km/giờ và đi từ B đến A với vận tốc 40km/giờ. thời gian đi từ điểm B đến A ít hơn thời gian đi từ A đến B là 45 phút . hãy tính quãng đường AB

Ai giải chi e với, mai e thi roof

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến