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

  • Помогите!!!!паскаль. Заранее спасибо))) паскаль. 1)известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку пять?Условный оператор не использовать

Ответы 1

  • program primer;var a:array[1..20] of integer;b,c:integer;

    beginwrite('write raiting');writeln ;for b:=1 to 20 doread(a[b]);c:=1;repeatinc(c);

    until a[c]<5;write(c-1);

     

    end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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