Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дан одномерный массив А(2М). Если наибольший элемент этого массива больше 100 и находится в первой половине этого вектора, то все его элементы, расположенные после первого максимума, заменить на минимальный.

Просмотров: 667
Объяснение: -

РЕШЕНИЕ:

program PascalGuru; var A:array[1..50] of integer; m,i:integer; max,min:integer; begin write('M: '); readln(m); writeln('Vvedite el-ty massiva:'); for i:=1 to m*2 do begin write('A[',i,']= '); readln(A[i]); end; writeln;writeln('Vvedennyi massiv:'); for i:=1 to m*2 do write(A[i]:6); max:=1; min:=1; for i:=2 to m*2 do begin if A[i]>A[max] then max:=i; if A[i]<A[min] then min:=i; end; if (A[max]>100) and (max<=m) then for i:=1 to m*2 do if A[i]=A[max] then begin for i:=max+1 to m*2 do A[i]:=A[min]; break; end; writeln;writeln; writeln('Preobrazovannyi massiv:'); for i:=1 to m*2 do write(A[i]:6); readln; end.

нажми на эту область и скопируй решение


	© 2008 - 2014 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.