Question

Дан массив x(10). Найти номер min элемента массива. Умножить на этот индекс все элементы.

Answer 1

var
  n, i, mn:integer;
  a:array [1..10] of integer;
begin
  writeln('vvedite massiv');
  for i:=1 to 10 do
  readln(a[i]);
  writeln('Ishodnii massiv');
  for i:=1 to 10 do
  write(a[i],' ');
  writeln();
  mn:=1;
  for i:=1 to 10 do
  if a[mn]>a[i] then mn:=i;
  for i:=1 to 10 do
  a[i]:=a[i]*mn;5
  writeln('Massiv posle obrabotki');
  for i:=1 to 10 do
  write(a[i],' ');
  writeln();
end.