Question

1) даны два массива z и r размером k x l, заполненные случайным образом. сформировать массив q, в котором каждый элемент соответствует сумме произведения значений элементов массивов z и r, и числа 10. вывести на экран все массивы. 2) дан двумерный массив а, размерностью м, заполненный случайным образом. заменить в данном массиве все нечетные элементы выше побочной главной диагонали на число с, введенное с клавиатуры. 3) дан двумерный массив d, размерностью м=4,n=6, заполненный случайным образом. найти сумму элементов 2 строки. полученную сумму вывести на экран.

Answer 1

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.