Viết chương trình nhập vào 1 dãy số thực gồm n phần tử . Tìm và in ra màn hình giá trị lớn nhất của dãy số vừa nhập. Với n nhập từ bàn phím

quochungtran255

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

Bechau274

program ct;

uses crt;

var i,n,Max:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

Max:=A[1];

for i:=2 to n do

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

writeln('gia tri lon nhat la:',Max);

readln

end.

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

tranducphuoc12b1

program ct;

uses srt;

var A:array[1..1000] of real;

i,n:integer;

max:real;

begin clrscr;

write('Nhap so phan tu n: '); readln(n);

for i:=1 to n do

begin

writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

end;

max:=A[1];

for i:=1 to n do

if A[i]>max then max:=A[i];

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

readln;

end.

Học tốt!

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

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

trong lúc băng phiến đang nóng chảy thì nhiệt độ ntn?

Mình đang cần rất gấp ạ mong các bạn giúp mình ạ mình xin cảm ơn ạ

Giúp mình câu 1 với mình đang cần gấp

Bạn nào trả lời câu này thì mk sẽ cho tối thiểu 3 sao. Căn cứ của cuộc khởi nghĩa Yên Thế nằm ở đâu? A.Phía Tây tỉnh Bắc Giang B.Phía Bắc tỉnh Bắc Giang C. Phía Nam tỉnh Bắc Giang D.Phía Đông tỉnh Bắc Giang

Xác định nhiệt độ khi xảy ra cân bằng nhiệt

Viết khoảng 120 chữ về trẻ em trên xã hội thời nay

sự phân chia các khí hậu dựa vào gì : A vĩ tuyến B chí tuyến C kinh tuyến

Lan di xe dap 15 phut duoc quang duong 2.5km tinh van toc

Cho tam giác EDF và E'D'F' đồng dạng có tỉ số đồng dạng k=3/7 ●Tính tỉ số giữa 2 đường phân giác

Hai kệ sách A và B có tất cả 800 quyển. Nếu chuyển từ kệ A qua kệ B 144 quyển thì số lượng sách ở hai kệ bằng nhau. Tính số quyển sách ở mỗi kệ lúc đầu

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