Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение - Pascal ABC
Формулировка задачи:
Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение.
Вот шапка:
Uses Crt; Type Mas = array [1..10] of integer; Var A: Mas; i:integer; Begin Randomize; For i:=1 to 10 do begin A[i]:=random(20)-10; Write(A[i]:4); end;
Код к задаче: «Поменять местами минимальный элемент массива и первый элемент, имеющий нулевое значение - Pascal ABC»
Uses Crt; Const n=20; Type Mas = array [1..n] of integer; Var A: Mas; i,i1,imn,x:integer; Begin Randomize; Writeln('Исходный массив'); For i:=1 to n do begin A[i]:=-10+random(21); Write(A[i]:4); end; Writeln; i1:=0; imn:=1; For i:=1 to n do begin if A[i]<A[imn] then imn:=i; if(i1=0)and(A[i]=0)then i1:=i; end; Writeln('Минимальный элемент=',A[imn],' его номер=',imn); if i1=0 then Write('Нулевого элемента нет') else begin Writeln('Номер первого нулевого элемента=',i1); x:=A[imn]; A[imn]:=A[i1]; A[i1]:=x; Writeln('Обмен первого нулевого и минимального элементов'); For i:=1 to n do Write(A[i]:4); end; end.

Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
9 голосов, оценка 4.222 из 5
Похожие ответы