Bài 27: Viết chương trình nhập vào dãy số a1, a2 ...an. Tìm số lớn nhất và vị trí của nó trong dãy số, đưa kết quả ra màn hình.

minhkhue.cr0803

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 15 xem

1 trả lời

Thích Trả lời

Okeletgo9

program max_vitri;

uses crt;

var A:array[1..10000] of integer;

n,i,max:integer;

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

begin

write('phan tu thu ',i,' la: ');

readln(A[i]);

end;

writeln('Day vua nhap la:');

for i:=1 to n do

write(A[i]:4);

max:=A[1];

for i:=2 to n do

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

writeln;

writeln('So lon nhat la: ',max);

write('i tri cua no la: ');

for i:=1 to n do

if A[i]=max then write(i,' ');

readln

end.

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

chuquyk15

uses crt;
var i,n,max:integer;
a:array[0..100] of integer;
vitri:byte;
BEGIN
clrscr;
write('Nhap N:'); readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']');
readln(a[i]);
end;
max:=a[1]; vitri:=1;
for i:=2 to n do
if a[i]>max then
begin
max:=a[i];
vitri:=i;
end;
write('So lon nhat trong day la ',max,' ,co vi tri ',vitri,'.');
readln
END.

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

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

Hai vòi nước cùng chảy vào một bể cạn thì sau 2 giờ 55 phút đầy bể. Nếu chảy riêng, thời gian vòi 1 chảy đầy bể nhanh hơn vòi 2 là 2 giờ. Hỏi nếu chảy riêng thì mỗi vòi chảy mất bao lâu đầy bể.

cho 3 số bất kì a,b,c thỏa mãn a ³> 36 và abc=1 Chứng minh rằng $\frac{a^{2}}{3}$ +b ²+c ²> ab+bc+ca

Viết ct nhập vào n số nguyên dương từ bp, thực hiện công việc sau: Đếm số lượng số chẵn và số lẻ trong phạm vi từ 1 đến n

tìm 5 giá trị x ∈ Z, sao cho: a, 4(x-8)<0 b, -3(x-2)<0

Học vấn không chỉ là chuyện đọc sách, nhưng đọc sách vẫn là một con đường quan trọng của học vấn. Nhưng ngày nay, nhiều bạn trẻ cho rằng vệc đọc sách tốn thời gian không cần thiết vì văn hóa nghe nhìn thuận tiện và phù hợp với cuộc sông hiện đại hơn. Ý kiến của em là gì? Mọi người có ý ngắn gọn thì gửi giúp mình nhé!

Do you know Jim’s brother who house is in your neigbourhood Sai chỗ nào ??

Cho mình xin một mẫu thời khóa biểu dọc nhen ! Vẽ mặt buồn ạ !

nhờ mọi người giúp mik cái hứa sẽ vote cảm ơn đầy đủ mik cần gấp ạ nhớ vt đáp án nhưng ko đc làm đại cho có để lấy điểm bài nhiều mà khó nên nhờ mn giúp vs

nhờ mọi người giúp mik cái hứa sẽ vote cảm ơn đầy đủ mik cần gấp ạ nhớ vt đáp án nhưng ko đc làm đại cho có để lấy điểm

What would you like to be when you grown up?Why?Where? viết bao nhiê cũng được hết nha

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