Задай одномерный массив х [1..15]. определить сумму четных положительных элементов массива, заполненного случайными числами из интервала от (-10)5] паскаль

Var
  X: array [1..15] of integer;
  i, sum: byte;
begin
sum := 0;
randomize;
writeln(' *** Исходный массив ***');
for i := 1 to 15 do
begin
  X[i] := random(15)-9;
  if ((X[i] > 0) and (X[i] mod 2 = 0)) then
    sum := sum + X[i];
  write(X[i],' ');
end;
writeln;
writeln('Сумма положительных четных = ', sum);
readln;
end.

кроссворд на фото

Объяснение:

1.Эта единица часто используется для выражения объема памяти КОМПЬЮТЕРА и дисковода. (гигабайт)

2.Величина, равная 8 битам. (Байт)

3.Содержание сигналов, которые человек получает из различных источников. (Информация)

4. 1 048 576 байт (220). В другом понимании - 1 000 000 байт. (мегабайт)

5. наименьший элемент языка, имеющий идею или смысл, пригодный для общения. (сообщение)

6. Наименьшая единица текстовой информации (символ)

7. категория, выражающая внешнее, формальное взаимоотношение предметов или их частей (количество)

8. количественная характеристика пространства, занимаемого телом или веществом. (объём)

9.Минимальная единица измерения информации. (Бит)

10.Число символов в алфавите (мощность)

11.Конечный набор для представления информации с различными символами. (Алфавит)

12. Письменное или устное высказывание (текст)

826178 827557

865748 867498

280514 283175

199991 200002

304502 306027

Объяснение:

Задачка интересная смог решить только методом перебора

(Закономерностей не выявил)

состряпал функцию для Excel

Function Sleft(s As Variant) 'для левых счастливых чисел

For i = 1 To s

   s = s - i

   ls = CInt(Mid(s, 1, 1)) + CInt(Mid(s, 2, 1)) + CInt(Mid(s, 3, 1))

   rs = CInt(Mid(s, 4, 1)) + CInt(Mid(s, 5, 1)) + CInt(Mid(s, 6, 1))

   If ls = rs Then Exit For

Next

Sleft = s

End Function

Function SRight(s As Variant) 'для правых счастливых чисел

For i = 1 To s

   s = s + i

   ls = CInt(Mid(s, 1, 1)) + CInt(Mid(s, 2, 1)) + CInt(Mid(s, 3, 1))

   rs = CInt(Mid(s, 4, 1)) + CInt(Mid(s, 5, 1)) + CInt(Mid(s, 6, 1))

   If ls = rs Then Exit For

Next

SRight = s

End Function