Question

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

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

Answer 2

а как надо?

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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