• Помогите!:с нужно составить алгоритм на языке программирования Паскаль.
    Дан массив, состоящий из 10 элементов. Определите, сколько элементов этого массива имеют максимальное значение.

Ответы 1

  • var a:array[1..10] of real;b,c:integer;max:real;beginc:=0;writeln('Введите элементы массива');for b:=1 to 10 dobeginreadln(a[b]);end;max:=a[1];for b:=1 to 10 dobeginif a[b]>max then max:=a[b];end;for b:=1 to 10 dobeginif a[b]=max then c:=c+1;end;writeln('Количество элементов,имеющих максимальное значение равняется ',c);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years