найти минимальный элемент

@eldar05 · Регистрация: 03.06.2013

Author24 — интернет-сервис помощи студентам

Найти минимальный элемент в массиве Y (25). Умножить на него все ненулевые элементы. Распечатать преобразованный массив Y.

@El41 · 25.01.2014, 13:58

Pascal

var
y:array[1..25] of integer;
min,i:integer;
begin
for i:=1 to 25 do
  begin
  y[i]:=1+random(25);
  write(y[i],' ');
  end;
min:=y[1];
for i:=1 to 25 do
  if y[i]<min then min:=y[i];
 writeln('min=',min,' New Massiv'); 
for i:=1 to 25 do
  if y[i]<>0 then 
    begin
  y[i]:=y[i]*min;
  write(y[i],' ');
    end;
end.

Новичок · 26.01.2014, 06:58

Сообщение от eldar05

Умножить на него все ненулевые элементы.

Сообщение от El41

Pascal

1
2
3

if y[i]<>0 then 
begin
y[i]:=y[i]*min;

Звучит смешно,но можно то и не проверять нулевой элемент или ненулевой: нулевые элементы если умножить все-равно так и останутся нулями...

@eldar05 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 44
		1
	найти минимальный элемент 25.01.2014, 13:32. Показов 1028. Ответов 2 Метки нет (Все метки) Найти минимальный элемент в массиве Y (25). Умножить на него все ненулевые элементы. Распечатать преобразованный массив Y. 0

	26.01.2014, 06:58

найти минимальный элемент

Решение