Заполните массив случайными числами в диапазоне и подсчитайте отдельно среднее значение всех элементов, меньших 50, и среднее значение всех элементов, которые больше или равны 50.
uses Crt; const n=20; type Vec=array [1..n] of integer; var A: Vec; i, Sum1, Sum2, Col1, Col2: integer; begin ClrScr; Randomize; Sum1:=0; Sum2:=0; Col1:=0; Col2:=0; WriteLn('Massiv A :'); for i:=1 to n do begin A[i]:=random(100); Write(A[i]: 4); if A[i]<50 then begin Sum1:=Sum1+A[i]; Col1:=Col1+1; end else begin Sum2:=Sum2+A[i]; Col2:=Col2+1; end; end; WriteLn; WriteLn('Sred<50 :', Sum1/Col1:6:2) ; WriteLn('Sred>=50 :', Sum2/Col2:6:2) ; ReadLn; end.
Пусть первое утверждение первого учителя истинно. Следовательно, можно составить таблицу, где в первой колонке номер учителя, во второй правда/ложь по высказываниям (например, ПЛ означает, что первое высказывание верное, второе ложное, ЛП - наоборот), а во третьем верное высказывание: 1 :: ПЛ :: первое место у Васи 2 :: ПЛ :: второе место у Саши 3 :: ЛП :: четвёртое место у Гриши 4 :: ЛЛ :: противоречие!
Значит, у первого учителя первое высказывание ложное. Составляем таблицу: 1 :: ЛП :: второе место у Юры 2 :: ЛП :: пятое место у Васи 3 :: ЛП :: четвёртое место у Гриши 4 :: ЛЛ :: противоречие!
Рассуждение №1 а) Пусть в первом высказывании истинно первое утверждение и Вася - первый. Тогда утверждение, что Юра второй - ложно, следовательно Юра не второй. б) Если Вася первый, то в четвертом высказывании утверждение о том, что Гриша первый ложно. Следовательно Гриша не первый, а Юра - четвертый. в) Если Юра четвертый, то в пятом высказывании ложно утверждение, что Иван второй. г) Если Иван не второй, то в третьем высказывании истинно утверждение, что Гриша четвертый. Но в б) мы пришли к выводу, что четвертый Юра, а двое не могут быть одновременно четвертыми. Тогда утверждение а) о том, что Вася первый - ложно и надо идти другим путем.
Рассуждение №2 а) Пусть в первом высказывании истинно второе утверждение и Вася не первый, а Юра - второй. б) Если Юра второй, то в четвертом высказывании утверждение что Юра четвертый ложно, следовательно, истинно утверждение о том, что Гриша первый. в) Если Гриша первый, то в третьем высказывании ложно утверждение о том, что Гриша четвертый, но тогда истинно утверждение, что Иван второй. г) Утверждение, что Иван второй, противоречит выводу а), где принимается, что второй Юра. Следовательно, допущение что Юра второй приводит нас к противоречию.
Итог: мы получаем противоречие, полагая, что любое из двух утверждений в высказывании 1 истинно, следовательно, имеются противоречия в условии задачи и она не может быть решена.
uses Crt;
const n=20;
type Vec=array [1..n] of integer;
var A: Vec;
i, Sum1, Sum2, Col1, Col2: integer;
begin
ClrScr;
Randomize;
Sum1:=0;
Sum2:=0;
Col1:=0;
Col2:=0;
WriteLn('Massiv A :');
for i:=1 to n do
begin
A[i]:=random(100);
Write(A[i]: 4);
if A[i]<50 then
begin
Sum1:=Sum1+A[i];
Col1:=Col1+1;
end else
begin
Sum2:=Sum2+A[i];
Col2:=Col2+1;
end;
end;
WriteLn;
WriteLn('Sred<50 :', Sum1/Col1:6:2) ;
WriteLn('Sred>=50 :', Sum2/Col2:6:2) ;
ReadLn;
end.