Const n=20;
var a:array[1..n] of integer;
i,j,k,c:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then
begin
k:=k+1;
c:=a[i];
for j:=i-1 downto k do a[j+1]:=a[j];
a[k]:=c;
end;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
5 25 24 -20 13 18 -2 21 -24 14 -2 -25 -18 13 23 11 22 -22 -21 -22
-20 -2 -24 -2 -25 -18 -22 -21 -22 5 25 24 13 18 21 14 13 23 11 22
Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует
Program array2d;
var
v_range, v_neg, i, j, n: integer;
array: array of array of integer;
i_range, i_neg: array[1..2] of integer;
begin
randomize;
write('введіть n: ');
readln(n);
SetLength(array, n, n);
write('введіть а та b: );
readln(a, b);
for i:= 1 to n do
for j:= 1 to n do
array(i, j) := random(100);
for i:= 1 to n do
for j:= 1 to n do
begin
if array(i, j) in a..b then
begin
if Assigned(v_neg) then
break; {перевірка, чи є негативне значення знайденим}
v_range := array(i, j);
i_range[1] := i;
i_range[2] := j;
end;
if array(i, j) < 0 then
begin
if Assigned(v_range) then
break;
v_neg := array(i, j);
i_neg[1] := 1;
i_neg[2] := 2;
end;
end;
if Assigned(v_range) and Assigned(v_neg) then
begin
array(i_range[1], i_range[2]) := v_neg;
array(i_neg[1], i_neg[2]) := v_range;
end;
writeln('Виконано.');
end.
Var
i, j, n, min: integer;
v: array[1..8]of integer;
p: array[1..8]of integer;
s: array[1..8]of integer;
begin
min := 999;
for i := 1 to 8 do read(v[i]);
for i := 1 to 8 do read(p[i]);
for i := 1 to 8 do read(s[i]);
for i := 1 to 8 do
if(p[i] = 0) and (s[i] = 1) and (v[i] < min) then min := v[i];
write(min);
end.
Пример:
Входные данные:
22 19 40 33 34 23 45 23
1 0 0 1 1 0 1 0
0 1 1 0 0 1 1 0
Выходные данные:
19