В массиве Z(10) найти минимальный элемент и сформировать новый массив, каждый элемент которого получится умнождением элемента массива Z на его минимальный элемент. Вывести оба массива.   ПОЖАЛУЙСТА.Этоне для моих куриных мозгов

Тоже так сделал бы)

а как надо?

У него не правильно вовсе)

ща разберусь, это сайт все в строчку сжимает

Var a,b,i,min:longint;m,l:array[1..10] of longint;beginmin:=100000;for i:=1 to 10 dobeginread(m[i]);if m[i]<min thenmin:=m[i];end;for i:=1 to 10 dobeginl[i]:=m[i]*min;end;for i:=1 to 10 dowrite(m[i],' ');writeln;for i:=1 to 10 dowrite(l[i],' ');end.