Заменить первый положительный элемент на минимальное значение элемента массива A(N)

@Emoboy · Регистрация: 27.02.2014

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

@Nickolay0512 · 01.03.2014, 09:31

Pascal

const n=10;
var a:array[1..n] of integer;
    i,min:integer;
begin
     for i:=1 to n do
     begin
          writeln('Введите a',i);
          readln(a[i]);
     end;
     min:=a[1];
     for i:=1 to n do
         if a[i]<min then min:=a[i];
     for i:=1 to n do
         if a[i]>0 then begin a[i]:=min; break; end;
     writeln('Преобразованный массив:');
     for i:=1 to n do
         write(a[i]:4);
     readln;
end.

magirus · 01.03.2014, 09:59

Комментарий администратора

Emoboy, называйте темы информативно.

@Emoboy 0 / 0 / 0 Регистрация: 27.02.2014 Сообщений: 15
		1
	Заменить первый положительный элемент на минимальное значение элемента массива A(N) 01.03.2014, 06:05. Показов 1626. Ответов 2 Метки нет (Все метки) Заменить первый положительный элемент на минимальное значение элемента массива A(N) 0

Опции темы

Заменить первый положительный элемент на минимальное значение элемента массива A(N)

Решение