Viết chương trình nhập vào dãy số nguyên N(số trong dãy có thể giống nhau) tìm số lớn nhất và có bao nhiêu số.

0 bình luận về “Viết chương trình nhập vào dãy số nguyên N(số trong dãy có thể giống nhau) tìm số lớn nhất và có bao nhiêu số.”

1. program oken;

   uses crt;

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

          n,max,i:integer;

   begin

   clrscr;

   write(‘nhap so phan tu cua mang: ‘); readln(n);

   for i:=1 to n do

   begin

   write(‘a[‘,i.’]: ‘); readln(a[i]);

   end;

   max:=a[1];

   for i:=2 to n do

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

   writeln(‘max: ‘,max);

   writeln(‘day so co ‘,n,’ so nguyen’);

   readln;

   end.

   Cho mình xin câu trả lời hay nhất nha

   Bình luận

2. uses crt;

   var n,i,max,d:integer;

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

   begin

   clrscr;

   write(‘nhap n: ‘);readln(n);

   for i:=1 to n do readln(n);

   max:=a[1];

   for i:=2 to n do if a[i]>max then

   max:=a[i];

   for i:=1 to n do if a[i]=max then d:=d+1;

   write(‘so lon nhat la: ‘,max,’– có ‘,d,’ bằng với số lớn nhất’);

   Bình luận