Основы алгоритмизации и программирования. вычислите произведение всех натуральных четных чисел, меньших 20

ответ:

2х10

4х5

объяснение:

я   точно не уверен

Var   a: array [1..12] of real;   //массив стоимости   s: real;                         //сумма   i: integer; begin   s: = 0;   for i: = 1 to 12 do   {12 раз вводим стоимость предмета и прибавляем ее к значению s}   begin     writeln('введите стоимость предмета');     readln(a[i]);     s: = s + a[i];   end;   writeln('общая стоимость всех предметов:   ', s); end.

:  определить какое из трех, введенных пользователем, чисел максимальное и вывести его на экран. описание переменных:   в программе будет три переменные для чисел, вводимых пользователем:   n1, n2, n3. также для алгоритма введем четвертую переменную, в которую по ходу выполнения кода будет помещено максимальное значение:   max. алгоритм решения :   сравнить первое и второе число (n1  и  n2). переменной  max  присвоить значение переменной, содержащей большее значение.сравнить значение переменной  max  с третьим числом, введенным пользователем (n3). если значение  n3окажется больше, чем  max, то присвоить  max  значение третьего числа. если же значение  max  окажется больше, то ничего не делать.