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

@stas14141 · Регистрация: 05.11.2013

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

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

@VlaNik · 04.03.2014, 06:47

Pascal

var
a:array [1..10] of integer;
i,min,n,p,ob:integer;
begin
writeln('vvedite n:');
readln(n);
writeln('vvedite massiv:');
for i:=1 to n do
readln(a[i]);
writeln('Massiv');
for i:=1 to n do
write(a[i],' ');
min:=n;
for i:=n downto 1 do
begin
if a[i]>0 then p:=i;
if a[i]<a[min] then min:=i;
end;
ob:=a[min];
a[min]:=a[p];
a[p]:=ob;
writeln;
writeln('Resultat');
for i:=1 to n do
write(a[i],' ');
end.

@stas14141 5 / 5 / 6 Регистрация: 05.11.2013 Сообщений: 91
		1
	Заменить первый положительный элемент на минимальное значение элемента массива 04.03.2014, 01:10. Показов 1009. Ответов 1 Метки нет (Все метки) Заменить первый положительный элемент на минимальное значение элемента массива A(N). 0

Опции темы

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

Решение