Pascalabc.net 3.3.5, сборка 1669 от 21.05.2018 внимание! если программа не работает, обновите версию! begin var a: =arrrandom(15,-50,50); a.println; writeln('отрицательных: ',a.where(t-> t< 0).count); writeln('минимум: ',a.min); writeln('среднее арифметическое отрицательных: ', a.where(t-> t< 0).average) end. пример -16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20 отрицательных: 8 минимум: -41 среднее арифметическое отрицательных: -23.125
TSKaraulova
20.06.2022
Const a = 0; b = 10; var x, y, h: real; begin h : = 0.5; x : = a; repeat y : = sin(x) / cos(x); writeln('x = ', x: 4: 1, ' y = ', y: 6: 3); x : = x + h; until x > b; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
C#, одновимірні масиви. дано масив розміру n. вывести спочатку його елементи з парними індексами, а потім - з непарними.