Заполнить массив случайными числами от 1 до 30. Заменить все элементы массива их удвоенными значениями
Ответы
Ответ дал:
0
var i,n:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
begin
a[i]:=Random(30);
write(a[i]:4,' ');
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*2;
write(a[i]:4,' ');
end;
end.
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
begin
a[i]:=Random(30);
write(a[i]:4,' ');
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*2;
write(a[i]:4,' ');
end;
end.
Ответ дал:
0
Спасибо)
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад