В массиве Z(10) найти минимальный элемент и сформировать новый массив, каждый элемент которого получится умнождением элемента массива Z на его минимальный элемент. Вывести оба массива. ПОЖАЛУЙСТА.Этоне для моих куриных мозгов
More Questions From This User See All
Answers & Comments
m,l:array[1..10] of longint;
begin
min:=100000;
for i:=1 to 10 do
begin
read(m[i]);
if m[i]<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.
m,l:array[1..10] of longint;
begin
min:=100000;
for i:=1 to 10 do
begin
read(m[i]);
if m[i]<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.
m,l:array[1..10] of longint;
begin
min:=100000;
for i:=1 to 10 do
begin
read(m[i]);
if m[i]<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.