Создать два динамических массива, заполнить их рандомно. ** экран выдать произведение...

Question

Создать два динамических массива, заполнить их рандомно. На экран выдать произведение соответствующих элементов массивов. (Написать на Pascal)

Answer 1

Var
  A, B: array of integer;
  N, i: integer;
begin
  randomize;
  write('Размер массива = '); readln(N);
  SetLength(A, N); SetLength(B, N);
for i := 0 to n-1 do
begin
  A[i] := random(61)-20;
  write(A[i]:6);
end;  
writeln;
for i := 0 to n-1 do
begin
  B[i] := random(41)-10;
  write(B[i]:6);
end;  
writeln; writeln;
for i := 0 to n-1 do
  write((B[i]*A[i]):6);
readln;  
end.

Comments

Большое Вам спасибо!

Answer 2

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-99,99); a.Println;
  var b:=ArrRandom(n,-99,99); b.Println;
  a.Zip(b,(x,y)->x*y).Println
end.

Пример
n= 13
-33 -22 -61 -21 24 -40 -30 77 46 19 -60 2 53
-99 27 90 -13 -17 19 76 -85 -18 4 91 -93 -59
3267 -594 -5490 273 -408 -760 -2280 -6545 -828 76 -5460 -186 -3127