Question

1. Заполнить массив из 10 элементов случайными числами. Увеличить каждый его элемент в 2 раза.
Исходный массив: 0 4 -3 2 -7 0 5 -6 3 1
Конечный массив: 0 8 -6 4 -14 0 10 -12 6 2

Answer 1

uses crt;
const n=10;
var a:array [1..n] of integer;
b:array [1..n] of real;
i:integer;
begin clrscr;
for і:=1 to n do readln(a[i]);

for i:=1 to n do b[i]:=2*(a[i]);
for i:=1 to n do write(a[i]:11);
writeln;
for i:=1 to n do write(b[i]:11:1);
end.






Это в Pascal