profile
Опубликовано 6 лет назад по предмету Информатика от Emo4ka1998

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

  1. Ответ
    Ответ дан levinter

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

    begin
    write('write raiting');writeln ;
    for b:=1 to 20 do
    read(a[b]);
    c:=1;
    repeat
    inc(c);

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

     

    end.

Самые новые вопросы