• Ребяят, помогите с заданием по информатике. Нужно решить в паскале и желательно с блок схемой. Заранее спасибо

    Дан массив из 8 чисел. Найти значение максимального элемента. Если таких элементов несколько, то определить, сколько их.

Ответы 1

  • vari, count, max: integer;a: array [1..8] of integer;beginfor i := 1 to 8 doread(a[i]);max := a[1];for i := 2 to 8 doif a[i] > max thenmax := a[i];count := 0;for i := 1 to 8 doif a[i] = max theninc(count);if count = 1 thenwriteln(max)elsewriteln(count);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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