Аскольд
7 год назад
Дан массив из десяти целых чисел. Определите , сколько элементов этого массива имеют максимальное значение?
с подробностями пж
ОТВЕТЫ
Михаил
Jul 10, 2019
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 maxlt;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.
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 maxlt;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.
126
