дан массив из десяти целых чисел. Определите , сколько элементов этого массива имеют максимальное значение? с подробностями пж
Answers & Comments
larinfo
Program zadacha; vara: array[1..10] of integer;i,max,n: integer; beginfor i:=1 to 10 do read(a[i]);n:=0;max:=a[1]; for i:=2 to 10 do beginif max<a[i] then max:=a[i];end; for i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end; writeln();writeln('max=',max);writeln('n=',n);end.
Answers & Comments
vara: array[1..10] of integer;i,max,n: integer;
beginfor i:=1 to 10 do read(a[i]);n:=0;max:=a[1];
for i:=2 to 10 do beginif max<a[i] then max:=a[i];end;
for i:=1 to 10 do beginif a[i]=max then beginn:=n+1;end;end;
writeln();writeln('max=',max);writeln('n=',n);end.