В классе n учащихся. Определить самую высокую и самую низкую оценку, полученную учащимися за урок. Вывести порядковые номера учащихся, получивших самую низкую оценку.

обнови

чтобы увидеть

Var     SurName : Array [1..30] of String;       Mark  : Array [1..30] of Real;         Cand    : Array [1..30] of String;       NPupil, K : Integer;                                                      BEGIN   Write('Сколько всего учеников ? ');  ReadLn(NPupil);  WriteLn('Введите фамилии и оценки учеников :');  For var i := 1 to NPupil do    begin Write(i, '. Фамилия - '); ReadLn(SurName[i]);          Write('     Оценка - ');    ReadLn(Mark[i]);    end; WriteLn;  K:=0;   For var i := 1 to NPupil do    If Mark[i]=2  then      begin K:=K+1; Cand[K] := SurName[i] end;  If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.')    else  begin WriteLn('ДВОЕЧНИКИ :');            For var i := 1 to K do WriteLn( i, '. ' , Cand[i]);      end;END.