Program n1;
const n=15;
var a: array[1..n] of integer;
i,k5,kns,sum: integer;
sb: real;
begin
randomize;
k5:=0;
kns:=0;
sum:=0;
write('оценки: ');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i],' ');
if a[i]=5 then k5:=k5+1;
sum:=sum+a[i];
end;
writeln;
sb:=sum/n;
writeln('кол-во 5: ',k5);
writeln('ср арифм: ',sb);
for i:=1 to n do if a[i]>sb then kns:=kns+1;
writeln('кол-во уч >ср арифм: ',kns);
end.
//Вы используете крайне нерациональный способ решения, к тому же просчитали не все возможные варианты исхода событый.
//Перебирать все возможные варианты не вижу смысла, ни один программист не будет вручную все считать и перебирать, поэтому привожу свое решение:
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int max, min, num, mid;
cout « "Введите 1 число: "; cin » max;
cout « "Введите 2 число: "; cin » min;
if (min > max)
{
num = max;
max = min;
min = num;
}
cout « "Введите 3 число: "; cin » num;
if (num > max)
mid = max;
else if (num < min)
mid = min;
else
mid = num;
cout « endl « "Среднее число: " « mid « endl;
return 0;
}
It is a quarter past ten 10:45
it is twenty minutes to twelve 11:40
it is a quarter to twelve 11:45
it is ten minutes to four p.m 15:50
Всего шесть чисел: -3 -2 -1 0 1 2
4*6=24 байта
