Ученные: Математическая программа программа - Mathematica, SciLab, MATLAB.
Дизайнер: SketchUP, Photoshop 3D, AutoDesk - Homestyler.
Веб-программист: Eclipse, Brackets
Методист: Онлайн: Eclipse/etc. / оффлайн (т.е не нужно кликать на сайте чтобы давать ответы): Конструктор тестов (так и называется)
Дизайнер: Photoshop
Ученные - прикладная программа, т.к это не внутренний интерфейс, он не встроен в винду
Дизайнер: тоже прикладная
Веб-программист: Система программирования
Методист: Системная программа тк. встроена в винду
Дизайнер: Приклад т.к photoshop нужно скачивать с других ресурсов
k,n,i:integer;
min:INTEGER;
begin
randomize; N:=10; k:=0 {кол-во отрицательных элементов};
writeln ('исходный массив');
for i:=1 to N do
begin
if random(2) =1 then a[i]:=random(100)
else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
write(a[i]:5);
end;
writeln;
{поиск минимального положительного}
if (k<>0) or (k<>N) then {есть отрицательные или не все отрицательные}
begin
for i:=1 to N do
if (a[i]>0) and (a[i]<min) then min:=a[i];
{замена}
for i:=1 to N do
if (a[i]<0) then a[i]:=min;
end;
writeln('Новый массив')
for i:=1 to N do write(a[i]:5);
end.