• Задан числовой массив, состоящий из 9 элементов. Найти и вывести на экран произведение всех элементов, меньших максимального.Надо составить программу.Помогите,пожалуйста 

Ответы 1

  • program programma;uses crt;vara:array[1..100]of integer;i,max,p:integer;beginclrscr;p:=1;for i:=1 to 9 dobeginwrite('a[',i,'] = ');readln(a[i]);end;for i:=1 to 9 dobeginif a[i]> max then max:=a[i];end;for i:=1 to 9 dobeginif a[i]<> max thenp:=p* a[i]end;writeln;writeln('max = ', max);write('P = ',p);end.
    • Автор:

      eugene26
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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