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

August 2021 1 9 Report

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

2 votes Thanks 1

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

Answers & Comments

2)=0.5...

komandnaya stroka zapishite komandu kopirovaniya fajla file1 iz kataloga books v ka

komandnaya stroka 1 v domashnem kataloge sozdajte dva vlozhennyh odin v odin katal

2)=0.5...

1-4sin^2(x)+sin^2(2x)=0...

uchityvaya termohimicheskoe uravnenie h2gcl2g2hclg1846 kdzh vychislite ob

parametr kakogo tipa budet vnesen v reestr strokoj paramhexbe000000 otve

(x^3)cos(a)...

zadan celochislennyj massiv razmera n opredelit chislo elementov v massive kratn

obyasnite kak rudimenty i atavizmy obyasnyayut mehanizm evolyucionnogo processa

рекомендуемые вопросы

Helpful Links

Helpful Social