Ответ:
const m = 1000
var
arr: array[1..m] of integer;
n,i, j, k: integer;
begin
readln(n);
write ('Исходный массив: ');
for i := 1 to n do begin
readln(arr[i]);
end;
//сортировка методом пузырька
for i := 1 to n-1 do
for j := 1 to n-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to n do
write (arr[i]:4);
end.
Объяснение:
если выполнение именно условий выше <em>и</em> левее
ответ а
П1 -> П0 x>=0 21
x^2 ИП1 x^2 + П2 4 - x>=0 21
ИП2 1 - x<0 21 1 С/П 0 С/П
Ввод: x ^ y С/П.
Блок-схема примерно такова:
/ x, y /
|
нет < x > 0 > да |
|----- нет < x^2 + y^2 <= 4> да |
|----------------------- нет < x^2 + y^2 >= 1 > да |
L / не принадлежит / / принадлежит /
Листинг программы и скриншот работы в приложениях.