Question

В столбцы A,B,C введите любые 20 чисел. Из произведения чисел столбцов A и C в столбце D сделайте вычитание чисел столбцов B,C

Answer 1

program til91946;

const n = 20;

type mas = array [1..n] of integer;

var a, b, c, d: mas;

   i: integer;

begin

writeln('В столбцы A, B, C введите любые 20 чисел. Из произведения чисел столбцов A и C в столбце D сделайте вычитание чисел столбцов B, C.');

writeln;

randomize;

writeln('A B C D');

for i := 1 to n do

begin

 a[i] := random(201) - 150;

 b[i] := random(201) - 150;

 c[i] := random(201) - 150;

 d[i] := a[i] * c[i] - c[i] - b[i];

 writeln(a[i], ' ', b[i], ' ', c[i], ' ', d[i]);

end;

readln;

end.

Answer 2

Допустим, у нас есть столбцы a, b и c, содержащие по 20 чисел каждый.

Чтобы выполнить задание, мы должны перемножить числа в столбцах a и c, а затем вычесть из этого произведения числа в столбцах b и c.

Пусть числа в столбце a обозначим как a1, a2, ..., a20, в столбце b - b1, b2, ..., b20, а в столбце c - c1, c2, ..., c20.

Тогда произведение чисел столбцов a и c будет равным a1*c1 + a2*c2 + ... + a20*c20.

А произведение чисел столбцов b и c будет равным b1*c1 + b2*c2 + ... + b20*c20.

И наконец, вычитание чисел столбцов b и c будет равно (b1*c1 + b2*c2 + ... + b20*c20) - (b1 + b2 + ... + b20)*(c1 + c2 + ... + c20).

То есть, мы сначала перемножаем элементы столбцов a и c, а затем вычитаем из этого произведения сумму элементов столбцов b и c.

Надеюсь, это помогло!