Помогите с одномерным массивом пожалуйста

Question

одномерный массив, формирующийся пользователем.

Сформировать ещё один массив, где каждый элемент будет равен элемент (по порядку) умножить на минимальный элемент массива. Вывести на экран

Александр Тарханов · Accepted Answer

Паскаль
var
 n,min,i:integer;
 a,b:array[1..100] of integer;
begin
 write('n= ');
 readln(n);
 for i:=1 to n do
 read(a[i]);
 writeln('Table:');
 min:=a[1];
 for i:=1 to n do
 begin
 write(a[i]:8);
 if min>a[i] then min:=a[i];
 end;
 writeln;
 writeln('New table:');
 for i:=1 to n do
 begin
 b[i]:=a[i]*min;
 write(b[i]:8);
 end
end.