Сделайте в кумире по информатике, все свои .можете просто написать алгоритм!

Question

Информатика: Сделайте в кумире по информатике, все свои .можете просто написать алгоритм! ​

gribovskayairi · Accepted Answer

Const   n = 20; type   V = array[1..n] of real; var   x, y: V;   i, k: integer;   amax: real; begin   writeln( Введите , n, положительных элементов массива Х );   amax := -1E20;   k := 0;   for i := 1 to n do   begin     read(x[i]);     {защита от дурака}     if x[i] 0 then x[i] := abs(x[i])     else if x[i] = 0 then x[i] := 1;     {сразу же находим значения элементов массива у и заодно нужный максимум}     y[i] := 0.5 * ln(x[i]);     if (y[i] =3) and ((Trunc(y[i]) mod 3) = 0) and (amax y[i]) then...

Сделайте в кумире по информатике, все свои .можете просто написать алгоритм! ​

MOGZ ответил