Помогите, с pascalabc.net 50 БАЛЛОВ
Нужно заполнить массив А из 5 элементов случайными числами от -5 ДО 10. И массив В из 10 элементов так чтобы нечётные элементы В были равны элементам А, а четные были равны элементам А умноженным на 2. Вывести оба массива.
Например,
Массив А: 0 -2 -14 -5 12
Массив В: 0 0 -2 -4 -14 -28 -5 -10 12 24
Ответы
Ответ дал:
0
const n=5;
var a: array[1..n] of integer;
b: array[1..2*n] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(-5,10);
b[2*i-1]:=a[i];
b[2*i]:=2*a[i];
end;
write('массив а: ');
for i:=1 to n do write(a[i],' ');
writeln;
write('массив b: ');
for i:=1 to 2*n do write(b[i],' ');
end.
массив а: -1 2 5 8 2
массив b: -1 -2 2 4 5 10 8 16 2 4
var a: array[1..n] of integer;
b: array[1..2*n] of integer;
i: integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(-5,10);
b[2*i-1]:=a[i];
b[2*i]:=2*a[i];
end;
write('массив а: ');
for i:=1 to n do write(a[i],' ');
writeln;
write('массив b: ');
for i:=1 to 2*n do write(b[i],' ');
end.
массив а: -1 2 5 8 2
массив b: -1 -2 2 4 5 10 8 16 2 4
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад