Массив содержит 10 случайных чисел от 10 до 20. определите произведение чисел кратных 3 и их количество

Var
  i, pr, k: byte;
  arr: array[1..10] of byte;

begin
  randomize();
  pr := 1;
  k := 0;
  for i := 1 to 10 do
  begin
    arr[i] := random(11) + 10;
    if arr[i] mod 3 = 0 then begin
      pr := pr * arr[i];
      k := k + 1;
    end;
  end;
  writeln(arr);
  writeln('Произведение чисел, кратных 3-м = ', pr);
  writeln('Кол-во этих чисел = ', k);
end.

В объяснении

Объяснение:

1 Вариант

1. 1)ppt

2. 1) my.doc, bell.txt, song.docx;

3. 3)мышь

4. 1) красного, синего, зеленого

5.Объем сообщения определяется по формуле:

V=l*r,

где l-длина сообщения, r-разрешение.

l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).

r=1 байт=8 бит.

Объем сообщения равен:

V=50*8=400 бит.

6. не понятно, что делать, задания не видно как-то

7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114

8. Нет рисунка  собственно

9.  64 бита < 16 байт

10 Кбайт < 10600 байт

10 байт = 80 бит

10. Нет схемы

Объяснение:

1) четным. Функция a mod 2 возвращает остаток от деления числа а на 2.

Если остаток равен 0, то число а четное.

2) 20.

a = 100; b = 30; a = 100 - 3*30 = 10

c = b - a = 30 - 10 = 20

3) if переводится как если, и не только в условном операторе, а вообще по-английски.

4) (x=3) or (x=4).

Вообще-то любое из этих выражений может быть использовано, как условие.

Если нет проверки на равенство числу, то подразумевается проверка на равенство нулю.

Но, скорее всего, имеется ввиду именно это выражение.

5) if a<b then min := a; else min := b;

Ошибка: после min := a точка с запятой не нужна.

6) Условие: a < 17

7) Нет верного ответа, потому что не бывает треугольника с тремя прямыми углами.

8) Не могу ответить, потому что нет фрагмента программы.