В массиве Z(10) найти минимальный элемент и сформировать новый массив, каждый элемент которого получится умнождением элемента массива Z на его

CategoriesИнформатикаПредмет

минимальный элемент. Вывести оба массива. ПОЖАЛУЙСТА.Этоне для моих куриных мозгов

Ответы:

var a,b,i,min:longint,

m,l:array[1..10] of longint,

begin

min:=100000,

for i:=1 to 10 do

begin

read(m[i]),

if m[i]&lt,min then

min:=m[i],

end,

for i:=1 to 10 do

begin

l[i]:=m[i]*min,

end,

for i:=1 to 10 do

write(m[i], ),

writeln,

for i:=1 to 10 do

write(l[i], ),

end.



можно попробывать набрать вот так))