Em hãy viết chương trình bằng 1 dãy số nguyên tử,in ra màn hình giá trị lớn nhất của dãy số nguyên đó và số lần xuất hiện của giá trị lớn nhất đó
Ko chép mạng
Em hãy viết chương trình bằng 1 dãy số nguyên tử,in ra màn hình giá trị lớn nhất của dãy số nguyên đó và số lần xuất hiện của giá trị lớn nhất đó
Ko chép mạng
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.
program max_xuat_hien;
uses crt;
var A:array[1..1000] of integer;
n,i,max,d:integer;
begin
clrscr;
write(‘Nhap so luong phan tu cua day: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
d:=0;
for i:=1 to n do
if A[i]=max then d:=d+1;
write(‘Gia tri lon nhat la: ‘,max,’ va so lan xuat hien la: ‘,d);
readln;
end.