1) Даны два массива Z и R размером K x L, заполненные случайным образом. Сформировать массив Q, в котором каждый элемент соответствует сумме произведения значений элементов массивов Z и R, и числа 10. Вывести на экран все массивы. 2) Дан двумерный массив А, размерностью М, заполненный случайным образом. Заменить в данном массиве все нечетные элементы выше побочной главной диагонали на число С, введенное с клавиатуры. 3) Дан двумерный массив D, размерностью М=4,N=6, заполненный случайным образом. Найти сумму элементов 2 строки. Полученную сумму вывести на экран.

Program Massive; uses Crt; const   K = 3;   L = 6; var   Z: array [1..K * L] of integer;   R: array [1..K * L] of integer;   Q: array [1..K * L] of integer;   i: integer;   x: integer; begin     Randomize;     x := K * L;     for i:= 1 to x do     begin       Z[i] := Random(20);       R[i] := Random(10);     end;     ClrScr;     writeln('Massive Z:');     for i:= 1 to x do         write(Z[i]:4);     writeln;     writeln('Massive R:');     for i:= 1 to x do         write(R[i]:4);     writeln;     for i:= 1 to x do         Q[i]:= Z[i] * R[i] 10;     writeln('Massive Q:');     for i:= 1 to x do         write (Q[i]:4);     readln end.