Написать программу на паскале. Массив

[Valja]

Задача: в массиве записан рейтинг студента по 10 предметам. Определить количество троек, четверок, пятерок, учитывая, что тройка начинается с 61%, четверка с 76%, пятерка с 91%.

[N.i.k.o.l.a.y.]

Могу помочь, но мне нужны деньги...(( срочно.. Беру мало, чисто символически..
Email: n.i.k.96@mail.ru
Пишите с темой: программа и тз. Скажу цену и у меня еще есть вопросы

[Serge_Bliznykov]

var i, Kol3, kol4, kol5 : integer;
  Reiting:array[1..10] of integer;
begin
  WriteLn;
  for i:=1 to 10 do begin
     Write('Vvedite reiting po ', i, ' predmetu: ');
     Readln( Reiting[i] ); 
  end;
     
  {подсчёт }
  Kol3 :=0; kol4:=0; kol5:=0;
  for i:=1 to 10 do begin
    if (Reiting[i]>=61) and (Reiting[i]<76)   then Inc(Kol3)
    else
       if (Reiting[i]>=76) and (Reiting[i]<91)   then Inc(Kol5)
       else
          if (Reiting[i]>=91)  then Inc(Kol5);

   WriteLn(' troek: ', kol3, ' chetverok: ', kol4, ' patyrok: ', kol5 );
   Readln
end.

[Poma][a]

Или такой вариант :

var i, Kol3, kol4, kol5 : integer;
  Reiting:array[1..10] of integer;
begin
  WriteLn;
  for i:=1 to 10 do begin
     Write('Vvedite reiting po ', i, ' predmetu: ');
     Readln( Reiting[i] );
  end;

  {подсчёт }
  Kol3 :=0; kol4:=0; kol5:=0;
  for i:=1 to 10 do begin
    case Reiting[i] of
      61..75 : Inc (kol3);
      76..90 : Inc (kol4)
    else
      Inc (kol5)
    end
  end;
        WriteLn(' troek: ', kol3, ' chetverok: ', kol4, ' patyrok: ', kol5 );
   Readln
end.

[Serge_Bliznykov]

Сообщение от Poma][a

Или такой вариант

    case Reiting[i] of
      61..75 : Inc (kol3);
      76..90 : Inc (kol4)
    else
      Inc (kol5)
    end

категорически - нет!
подумайте, что будет, если рейнинг будет 10 или 20 или 50 ? Какая оценка подсчитается?!

тогда уже так

    case Reiting[i] of
      1..60: ;
      61..75 : Inc (kol3);
      76..90 : Inc (kol4)
    else
      Inc (kol5)
    end

[Poma][a]

категорически - нет!
подумайте, что будет, если рейнинг будет 10 или 20 или 50 ? Какая оценка подсчитается?!

Точняк! Серж, позвольте поставить свой скромный +

[hon]

Автор топик не написал наработки, значит это ему не нужно.