em hãy viết 1 chương trình nhập vào dãy số nguyên và in ra dãy số nguyên đó,giá trị lớn nhất của dãy số nguyên đó,và số lần xuất hiện giá trị số nguyên đó

ngocbao23032004

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

kadion1951994

program day_so;

uses crt;

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

n,i,max,d:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(A[i]);

end;

write('Day so la: ');

max:=A[1];

for i:=1 to n do

begin

write(A[i],' ');

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

end;

writeln;

d:=0;

for i:=1 to n do

if A[i]=max then d:=d+1;

write('Gia tri lon nhat la: ',max,' va xuat hien ',d,' lan');

readln;

end.

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

dotrongt1222

var a: array[1..250] of integer;

i, n, d: byte;

max: integer;

Begin

Write('n = '); readln(n); d:=0;

For i:=1 to n do

Begin

Write('a[', i, '] = '); readln(a[i]);

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

Else if a[i]>max then max:=a[i];

End;

For i:=1 to n do

Begin

Write(a[i], ' ');

If a[i]=max then d:=d+1;

End;

Writeln;

Writeln('so lon nhat: ', max);

Write('so lan xuat hien: ', d);

Readln

End.

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

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

Vẽ bức tranh đề tài về mẹ Có bạn nào đã hoc engbreaking chưa

Huhu 😭😭😭😭😭😭😭😭😂😂😂😂vhzđskdsldnfbfhfjf

Viết đoạn văn ngắn trình bày suy nghĩ của em về giá trị của tình yêu thương và sẽ chia trong cuộc sống

hãy viết bài văn giải thích câu tục ngữ 'có chí thì nên' và cho biết dàn bài của bài văn đó

Một người đi xe đạp từ A đến B với vận tốc 20km/h . Lúc quay về đi với vận tốc 15km/h nên thời gian về hơn thời gian đi 10p . Tính quãng đường AB? giup minh voii minh ra số to qua

giúp mk với 🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻🙏🏻ai làm hay mk cho hay nhất và 5sao🏅🎖🎖🎖🎖🎖

5x+3/4=5/2 Cho mik hỏi làm sao vậy

Khi tập thể dục, đổ rất nhiều mồ hôi. Khi đó da đang thực hiện chức năng gì? Lúc đó cần làm gì để bảo vệ sức khỏe? Giúp mình với. Mình cảm ơn

tại sao khi chuyển 7.14m2 + 7.14m2 + 7.14m2 x 3 lại bằng 7,14m2 x ( 1 + 1 +3) = 7,14m2 x 5 = 35,7m2

trong những năm 1957-1959 mĩ diệm đã thực hiện chính sách khủng bố nào đối với nhân ta ?hãy kể những tội ác mà mĩ diệm đã làm với dân ta mà em biết?

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