Найти сумму всех четн. элементов многомерного массивачерез датчик случайных чисел)

 const n=5;
 var
  a: array[1..n,1..n] of integer;
  j,i,s:integer;
begin
  s:=0;
  randomize;
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(100);
          write(a[i,j]:4);
          if a[i,j] mod 2=0 then
            s:=s+a[i,j];
        end;
      writeln;
    end;
  writeln('S=',s);
  readln
end.

start = input('Введите 1 — рекомендация, off — завершить:')

while start != 'off':

   if start == '1':

       mood = input('Ваше настроение:')

       if mood == 'весёлое':

           print('Мультфильм Шрек')

           start = input('Введите 1 — рекомендация, off — завершить:')

       else:

           print('Мультфильм Алладин')

           start = input('Введите 1 — рекомендация, off — завершить:')

   else:

       print('Вы ввели что-то не то, попробуйте еще раз')

       start = input('Введите 1 — рекомендация, off — завершить:')

Объяснение:

Запрос – средство отбора (поиска) данных в базе из одной или нескольких таблиц по определенному пользователем условию.

Все запросы делятся на две группы:

* запросы-выборки,

* запросы-действия.

Запросы-выборки осуществляют выборку данных из таблиц в соответствии с заданными условиями.

К этой группе запросов относятся следующие:

* Запрос к связанным таблицам - позволяет производить выборку данных из связанных таблиц.

* Перекрестный запрос - отображает итоговые данные с группировкой их по горизонтали и вертикали, выводя результаты их обработки в виде таблиц.

* Запрос с параметром - позволяет пользователю задать критерий отбора, введя нужный параметр при вызове запроса.

* Запрос с вычисляемым полем - позволяет рассчитать данные на основе других полей из той же строки запроса.

* Запрос с критерием поиска - позволяет производить отбор записей в соответствии с заданным критерием поиска.

* Запрос с итогами - производит математические вычисления и выдает результат.

Запросы-действия позволяют модифицировать данные в таблицах: удалять, обновлять, добавлять записи.

К этой группе запросов относятся следующие:

* Запросы на создание таблицы создают таблицы на основании данных, содержащихся в результирующем множестве запроса.

* Запросы на добавление записей позволяют добавлять в таблицу записи, создаваемые запросом.

* Запросы на обновление изменяют значения существующих полей в соответствии с заданным критерием.

* Запросы на удаление удаляют записи из одной или нескольких таблиц одновременно.