СРОЧНООО
Задать массив из 10 элементов с помощью генератора случайных чисел из интервала(10,30) Увеличить каждое число в массиве в три раза. Вывести на экран оба массива(результат и исходный)
Ответы
Ответ дал:
0
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
begin
a[i]:=a[i]*3;
write(a[i],' ');
end;
end.
var a: array[1..10] of integer;
i: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
begin
a[i]:=a[i]*3;
write(a[i],' ');
end;
end.
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,10,30); a.Println;
a.Transform(x->x*3); a.Println
end.
Пример
28 18 12 14 24 14 23 19 16 24
84 54 36 42 72 42 69 57 48 72
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,10,30); a.Println;
a.Transform(x->x*3); a.Println
end.
Пример
28 18 12 14 24 14 23 19 16 24
84 54 36 42 72 42 69 57 48 72
Вас заинтересует
8 лет назад
8 лет назад