Вопрос по информатике:
Создать два динамических массива, заполнить их рандомно. На экран выдать произведение соответствующих элементов массивов. (Написать на Pascal)
Пожаловаться
- 10.11.2015 13:56
- Информатика
- remove_red_eye 5517
- thumb_up 27
Ответы и объяснения 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
// Внимание! Если программа не работает, обновите версию!
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
Пожаловаться
- 11.11.2015 19:01
- thumb_up 34
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.
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.
Пожаловаться
- 12.11.2015 03:18
- thumb_up 22
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы