Задать вопрос Регистрация
Помочь другим

  • В массиве хранится информации о стоимости каждой из 60 книг. Определить количество самых дешёвых книг.

Ответы 1

  • uses crt;var i,min,s:integer;a:array[1..60] of integer;begins:=0;for i:=1 to 60 do a[i]:=random(35)+1;min:=a[1];

    for i:=1 to 60 do if min > a[i] then min:=a[i];for i:=1 to 60 do if a[i] = min then inc(s);

    writeln(s,' books for price = ',min,' ru.');end.

    • Автор:

      cinder
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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