Question

Напишите решение задачи через паскаль.
1.Массив из 10 целых чисел из промежутка [10,20] задается с помощью гениратора случайных чисел. Вывести полученный массив в строку. Затем увеличить каждый элемент на 5. В следующей строке вывести полученный массив.
2. Массив из 6 отрицательных и положительных чисел вводится в области описания констант. Вывести исходный массив. Отрицательные элементы массива умножить на - 1. Вывести полученный массив в следующей строке.

Answer 1

1.
Program enot;
Var a: array[1..10] of integer;
i,k,j: integer;
begin
for i:= 1 to 10 do
a[i]:= random(11)+10;
for i:= 1 to 10 do
write(a[i]:4);
writeln();
for i:= 1 to 10 do
begin
a[i]:=a[i]+5;
write(a[i]:4);
end;
end.

2.Program enot;
Const a:array[1..6] of integer = (3,-5,7,4,8,-2);
Var i: integer;
b: array [1..6] of integer;
begin
for i:= 1 to 6 do
write(a[i]:4);
writeln();
for i:= 1 to 6 do begin
b[i]:=a[i];
if a[i]<0 then b[i]:= b[i]*-1;
write(b[i]:4);
end;
end.