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

Question

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

Comments

язык какой??)

---

Паскаль

Answer 1

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]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.

Comments

if m[i]min:=m[i]; Что за строчка? Не правильно.

---

а не проще min присваивать первое значение? т.е. min:=a[1].

---

а как надо?

---

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

---

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

---

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]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.

Answer 2

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

---

Comments

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

---

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]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.

---

вот рабочий код

---

не туда