1) Даны два массива Z и R размером K x L, заполненные случайным образом. Сформировать...

Question

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

Comments

нет, все равно не понял

---

фига себе, я когда в 10 учился, у меня вроде уже паскаль закончился)

---

написать то прогу можно, только смысл понять нужно

---

в 10 )

---

в каком классе-то учишься?

---

сейчас 3-ю сделаю

---

Спасибо огромное,очень меня выручил,сможешь с остальными двумя помочь?

---

дадада,оба

---

короче, давай так и сделаю

---

аа, или оба массива длиной k * L

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.

Comments

Эта первая

---

Спасибо тебе большое!!! Не представляешь,как меня выручил! СПАСИБОООО!!!!

---

Успехов!

---

for i:= 1 to M do begin for j:= 1 to M do write (D[i,j] : 4); writeln; end; readlnend.

---

Program Massive;uses Crt;const M = 4;var D: array [1..M, 1..M] of integer; i: integer; j: integer; c: integer; k: integer;begin ClrScr; Randomize; writeln ('Massive D:'); for i:= 1 to M do begin for j:= 1 to M do begin D[i,j] := Random(20); write(D[i,j]:4); end; writeln; end; write('Enter number C:'); readln(c); k := 0; for i:= M - k - 1 downto 1 do begin for j:= 1 to k + 1 do if (D[i,j] mod 2 <> 0) then D[i,j] := c; k := k + 1; end;

---

спасибо огррромное еще раз! Вторую осилишь?

---

это 3-я

---

Program Massive;uses Crt;const M = 4; N = 6;var D: array [1..M, 1..N] of integer; i: integer; j: integer; x: integer;begin ClrScr; Randomize; writeln ('Massive D:'); for i:= 1 to M do begin for j:= 1 to N do begin D[i,j] := Random(20); write(D[i,j]:4); end; writeln; end; for j:= 1 to N do x := x + D[2,j]; writeln; write ('Result = ', x); readlnend.

---

пожалуйста, но информатику учи)