ПОМОГИТЕ ПОЖАЛУЙСТА!!!Безотлагательно!!!!!ПАСКАЛЬ!1) Посреди 14 реальных чисел, введённых с
ПОМОГИТЕ ПОЖАЛУЙСТА!!!Безотлагательно!!!!!ПАСКАЛЬ!
1) Посреди 14 реальных чисел, введённых с клавиатуры, подсчитать количество элементов, одинаковых предпоследнему, и выдать их номера на экран.
2) Дан массив из 16 целых чисел, случайно данных в спектре от 0 до 90 .Получить MAX (a1-a16, a2-a15, , a8-a9).
3) Дан массив из 12 целых чисел, введённых с клавиатуры. Вычислить среднее геометрическое чётных элементов массива.
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программка не работает, обновите версию!
1)
begin
var n := 14;
var a := ReadArrReal(n);
var p := a[n - 2];
var s := a.IndexesOf(t -gt; t = p);
s.Select(i -gt; i + 1).Println.Count.Println // индексы,позже кол-во
end.
Пример
1 4.5 4 -0.3 -0.5 4.2 -1.1 4.4 -3.1 -3.4 4.2 -1.2 -1.1 1.1
7 13
2
2)
begin
var n := 16;
var a := ArrRandom(n, 0, 90);
a.Println;
var max := -1;
for var i := 0 to n div 2 - 1 do
begin
var t := a[i] - a[n - i - 1];
if max lt; t then max := t
end;
max.Println
end.
Пример
79 73 62 60 29 3 71 21 64 9 53 32 15 24 16 28
62
3)
begin
var a := ReadArrInteger(12);
var s := a.Where(t -gt; t.IsEven);
var k := s.Count;
if k gt; 1 then ((s.Aggregate(1.0, (p, q)-gt; p * q)) ** (1 / k)).Println
else
if k = 0 then Println(0)
else s.First.Println
end.
Пример
63 96 84 43 19 56 41 36 8 46 1 57
42.6070511534269
-
Вопросы ответы
Статьи
Информатика
Статьи
География.
Литература.
Разные вопросы.
Математика.
Разные вопросы.
Литература.
Литература.
Разные вопросы.
Кыргыз тили.
Математика.