Нужен прог. дан одномерный массив a[n]. найти среднее значение массива и подсчитать количество элементов, значения которых равны квадратному корню из среднего.
Const N = 30; Var A:array[1..N] of integer; i:integer; C,K,Q:real; Begin For i:= 1 to N do Begin A[i]:=random(21); Write(A[i],' '); C:=C+A[i]; End; WriteLn('Среднее арифметическое элементов массива равно: ',C); C:=sqrt(C); K:=0; For i:= 1 to N do if A[i]=C then K:=K+1; WriteLn('Кол-во элементов, равных ',C,' равно ',K); End.
Рассуждение №1 а) Пусть в первом высказывании истинно первое утверждение и Вася - первый. Тогда утверждение, что Юра второй - ложно, следовательно Юра не второй. б) Если Вася первый, то в четвертом высказывании утверждение о том, что Гриша первый ложно. Следовательно Гриша не первый, а Юра - четвертый. в) Если Юра четвертый, то в пятом высказывании ложно утверждение, что Иван второй. г) Если Иван не второй, то в третьем высказывании истинно утверждение, что Гриша четвертый. Но в б) мы пришли к выводу, что четвертый Юра, а двое не могут быть одновременно четвертыми. Тогда утверждение а) о том, что Вася первый - ложно и надо идти другим путем.
Рассуждение №2 а) Пусть в первом высказывании истинно второе утверждение и Вася не первый, а Юра - второй. б) Если Юра второй, то в четвертом высказывании утверждение что Юра четвертый ложно, следовательно, истинно утверждение о том, что Гриша первый. в) Если Гриша первый, то в третьем высказывании ложно утверждение о том, что Гриша четвертый, но тогда истинно утверждение, что Иван второй. г) Утверждение, что Иван второй, противоречит выводу а), где принимается, что второй Юра. Следовательно, допущение что Юра второй приводит нас к противоречию.
Итог: мы получаем противоречие, полагая, что любое из двух утверждений в высказывании 1 истинно, следовательно, имеются противоречия в условии задачи и она не может быть решена.
Рассуждение №1 а) Пусть в первом высказывании истинно первое утверждение и Вася - первый. Тогда утверждение, что Юра второй - ложно, следовательно Юра не второй. б) Если Вася первый, то в четвертом высказывании утверждение о том, что Гриша первый ложно. Следовательно Гриша не первый, а Юра - четвертый. в) Если Юра четвертый, то в пятом высказывании ложно утверждение, что Иван второй. г) Если Иван не второй, то в третьем высказывании истинно утверждение, что Гриша четвертый. Но в б) мы пришли к выводу, что четвертый Юра, а двое не могут быть одновременно четвертыми. Тогда утверждение а) о том, что Вася первый - ложно и надо идти другим путем.
Рассуждение №2 а) Пусть в первом высказывании истинно второе утверждение и Вася не первый, а Юра - второй. б) Если Юра второй, то в четвертом высказывании утверждение что Юра четвертый ложно, следовательно, истинно утверждение о том, что Гриша первый. в) Если Гриша первый, то в третьем высказывании ложно утверждение о том, что Гриша четвертый, но тогда истинно утверждение, что Иван второй. г) Утверждение, что Иван второй, противоречит выводу а), где принимается, что второй Юра. Следовательно, допущение что Юра второй приводит нас к противоречию.
Итог: мы получаем противоречие, полагая, что любое из двух утверждений в высказывании 1 истинно, следовательно, имеются противоречия в условии задачи и она не может быть решена.
N = 30;
Var
A:array[1..N] of integer;
i:integer;
C,K,Q:real;
Begin
For i:= 1 to N do
Begin
A[i]:=random(21);
Write(A[i],' ');
C:=C+A[i];
End;
WriteLn('Среднее арифметическое элементов массива равно: ',C);
C:=sqrt(C);
K:=0;
For i:= 1 to N do
if A[i]=C then K:=K+1;
WriteLn('Кол-во элементов, равных ',C,' равно ',K);
End.