Program Lloyd;
varx,y,z: real;
begin
y:=(((30*4)-30)/3)*365;
write('nakopleniya Pole za god = ', y);
readln (y);
<span>end.</span>
Решение показано в прилагаемом файле.
Формулы:
Для столбца H:
Сумма: =СУММ(C2:G2)
Количество мастеров спорта: =СЧЁТЕСЛИ(H2:H11;">=150")
Max =: =МАКС(H2:H11)
Мин =: =МИН(H2:H11)
Для столбца I:
Среднее: =СРЗНАЧ(C2:G2)
ФИО спортсмена с макс. баллами:
=ИНДЕКС(A2:H11;ПОИСКПОЗ(H13;H2:H11;0);2)
ФИО спортсмена с мин. баллами:
=ИНДЕКС(A2:H11;ПОИСКПОЗ(H14;H2:H11;0);2)
Const
N = 10; //Задаём размерность массива
Var
A: array[1..N] of integer; //Объявляем массив
i, B: integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
Begin
A[i] := random(2*N+1)-N; //Заполняем массив случайными числами
Write(' ',A[i]); //и выводим его на экран
End;
WriteLn;
B := A[N]; //В переменной B будет находится искомое число
For i:= 1 to N-1 do
if (A[i] > 0)and(A[i] < B) then
B := A[i];
WriteLn('Наименьшее положитиельное чилсо: ',B);
End.