СРОЧНООО Задать массив из 10 элементов с помощью генератора случайных чисел из интервала(10,30) Увеличить каждое число в массиве в три раза. Вывести на экран оба массива(результат и исходный)
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.
Answers & Comments
Verified answer
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.