1. Допустим,что учитель сказал правду Савелию, тогда у Савелия оценка 4 или 3. У Виталия тогда оценка 3, так как учитель ошибся, а у Аркадия или 5 или 4. Савелий-4 Виталий-3 Аркадий-5. ЭТО ВОЗМОЖНО!
2. Допустим, что учитель сказал правду Виталию, тогда у него оценка 4 или 5, тогда у Савелия 5, а у Аркадия 4 или 5, так как учитель ошибся. Савелий-5 Виталий-4 или 5 Аркадий-4 или 5 НЕ У КОГО НЕТ ОЦЕНКИ 3, А ЭТОГО БЫТЬ НЕ МОЖЕТ
3.Допустим, что учитель сказал правду Аркадию, тогда у него оценка 3, тогда у Савелия 3 или 4, так как учитель ошибся, а у Виталия оценка 3, так как учитель ошибся. Савелий-3 или 4 Виталий-3 Аркадий-3 НЕ У КОГО НЕТ ОЦЕНКИ 5,А ЭТОГО БЫТЬ НЕ МОЖЕТ. ответ: Савелий-4 Виталий-3 Аркадий-5
Var i,ne,ch,n:integer; a:array of integer; //объявление динамического массива begin write('Введите длину массива :'); readln(n); randomize; a:= new integer[n+1];// установка размера (n+1) динамического массива for i:=1 to n do begin a[i]:=random(80)+20; write(a[i],' ');//Вывод на экран полученного массива if odd(a[i]) then inc(ne);// odd() - функция,определяющая нечетность числа.Возвращает значение True, если число нечетное end; //inc() - функция инкремент - увелечения на 1. ch:= n-ne; writeln; writeln('Нечетные=',Ne); writeln('Четные=',Ch); end.
