Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Умножить все элементы массива A на 2( Паскаль)

Ответ оставил Гость

Var n:integer;
a:Array[1..100] of integer;
begin
read(n);
for i:1 to N do
begin
a[i]:random(10);
a[i]=a[i]*2;
writeln(a[i]);
end;
end.