1. в массиве из 70 целых чисел найти количество элементов, кратных 3 2. проверить, что в массиве ровно 3 одинаковых максимальных числа 3. в массиве удалить все элементы, имеющие нечетные значения

// PascalABC.NET 3.0, сборка 1128
begin
  var a:=ArrRandom(70,1,100).PrintLn;
  Writeln('Количество элементов, кратных трем: ',
    a.Where(x->x mod 3=0).Count);
  var p:=a.OrderByDescending(x->x).Take(4).ToArray;
  if (p[0]=p[1]) and (p[0]=p[2]) and (p[0]<>p[3]) then
    Writeln('В массиве ровно три одинаковых максимальных элемента')
  else Writeln('В массиве не три одинаковых максимальных элемента');
  Writeln('Массив, из которого удалены элементы с нечетными значениями');
  a.Where(x-> not Odd(x)).PrintLn
end.

Тестовое решение:
38 85 87 89 78 50 26 92 6 41 14 57 14 41 81 5 30 21 27 71 92 55 76 53 84 18 62 28 85 58 14 58 42 92 1 93 68 67 53 65 15 45 47 57 76 60 6 88 44 4 27 21 39 67 96 84 10 35 6 60 88 98 7 48 28 56 16 23 40 88
Количество элементов, кратных трем: 25
В массиве не три одинаковых максимальных элемента
Массив, из которого удалены элементы с нечетными значениями
38 78 50 26 92 6 14 14 30 92 76 84 18 62 28 58 14 58 42 92 68 76 60 6 88 44 4 96 84 10 6 60 88 98 48 28 56 16 40 88

3 76 40 20 39 100 15 85 75 58 43 48 2 57 45 90 12 50 92 70 64 33 94 38 18 59 74 10 31 13 61 34 100 77 42 61 76 95 38 100 27 44 7 75 23 22 24 52 70 39 91 68 79 74 83 70 82 2 2 80 26 6 55 62 97 10 48 25 16 84
Количество элементов, кратных трем: 19
В массиве ровно три одинаковых максимальных элемента
Массив, из которого удалены элементы с нечетными значениями
76 40 20 100 58 48 2 90 12 50 92 70 64 94 38 18 74 10 34 100 42 76 38 100 44 22 24 52 70 68 74 70 82 2 2 80 26 6 62 10 48 16 84

ответ: Объяснение:

1.

21,5₁₀ = 1*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ + 1/2¹ = 10101,1₂

21,5₁₀ = 5*8⁰ + 2*8¹ + 4/8¹ = 25,4₈

432,54₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 1*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 1*2⁸ + 1/2¹ + 0/2² + 0/2³ + 0/2⁴ + 1/2⁵ = 110110000,10001₂

432,54₁₀ = 0*8⁰ + 6*8¹ + 6*8² + 4/8¹ + 2/8² + 4/8³ + 3/8⁴ + 6/8⁵ = 660,42436₈

678,333₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 0*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ + 0/2¹ + 1/2² + 0/2³ + 1/2⁴ + 0/2⁵ = 1010100110,01010₂

678,333₁₀ = 6*8⁰ + 4*8¹ + 2*8² + 1*8³ + 2/8¹ + 5/8² + 2/8³ + 3/8⁴ + 7/8⁵ = 1246,25237₈

2.

12,25₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 1*2³ + 0/2¹ + 1/2² = 1100,01₂

12,25₁₀ = 4*8⁰ + 1*8¹ + 2/8¹ = 14,2₈

97,444₁₀ = 1*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ + 0/2¹ + 1/2² + 1/2³ + 1/2⁴ + 0/2⁵ = 1100001,01110₂

97,444₁₀ = 1*8⁰ + 4*8¹ + 1*8² + 3/8¹ + 4/8² + 3/8³ + 2/8⁴ + 4/8⁵ = 141,34324₈

7896,2₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 0*2⁵ + 1*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ + 1*2¹⁰ + 1*2¹¹ + 1*2¹² + 0/2¹ + 0/2² + 1/2³ + 1/2⁴ + 0/2⁵ = 1111011011000,00110₂

7896,2₁₀ = 0*8⁰ + 3*8¹ + 3*8² + 7*8³ + 1*8⁴ + 1/8¹ + 4/8² + 6/8³ + 3/8⁴ + 1/8⁵ = 17330,14631₈

Const n=20;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(90)+10;
 write(a[i],'  ');
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i] mod 2 = 0 then k:=k+1;
writeln('В массиве ',k,' четных чисел');
writeln('Элементы с нечетными номерами:');
for i:=1 to n do
 if i mod 2 <> 0 then write(a[i],'  ');
end.

Пример:
Исходный массив:
55  40  42  16  52  12  46  58  75  72  39  51  54  64  83  20  77  37  52  23  
В массиве 12 четных чисел
Элементы с нечетными номерами:
55  42  52  46  75  39  54  83  77  52