Создать два динамических массива, заполнить их рандомно. На экран выдать произведение соответствующих элементов массивов. (Написать на Pascal)
Answers & Comments
pacixor
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.
Answers & Comments
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.