Составить блок-схему алгоритма вычисления значения функции y(x) на всей области определения х.
y(x)={1/x при х< 0; x при 0≤x≤10; 15 при x ≥ 10 }; x [-20,20], с шагом х=1. при y(x)> 10 закончить вычисления. алгоритм содержит цикл с постусловием.

1)7-5=2 уч.-имеют две "3" по и по . 2)17-4-5-2=6 уч.-имеют две "3" по и по . 3)22-5-2-11=4 уч.-имеют две "3" по и по . 4)40-22-4-6-4=4 уч.-учатся без "3". 5)6+2+4=12 уч.-имеют "3" по двум предметам из трёх.

я так понимаю нужно нарисовать рисунки рыб, карасей и различных животных. множества нужно перекрестить(множество рыб и хищ. животных), так как рыба тоже может быть хищником

1. заливаем в бочку 5 литров. 2. зачерпываем 5литровым и выливаем в 9-литровое ведро. 3. снова зачерпываем 5 литровым и льём в 9-литровое доверха. в 5-литровом остаётся 1 литр. его выливаем в бочку к уже там находящимся 5 литрам. итог - 6 литров.

1)

var

a: array[1..50]of real;  

i,n: byte;

sn: real;  

begin 

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr;  

writeln('исходный массив: ');  

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*простой вывод в столбик*/

for i: =1 to n do writeln(a[i]: 5: 3);

/*сумма элементов, стоящих на четных местах*/ 

sn: =0;

while i< =n do

begin

  if odd(i)=false then sn: =sn+a[i];

  i: =i+1;

end;  

/*вывод ответа*/

writeln('сумма элементов, стоящих на четных местах: ',sn: 5: 3);

end. 

2)

var

a: array[1..50]of real;

i: byte;  

begin

  write('введите количество элементов массива: '); readln(n);

for i: =1 to n do

begin

write('a[',i,']= '); readln(a[i]);

end;

clrscr;  

writeln('исходный массив: ');  

/* вывод в строчку через запятую*/

for i: =1 to n-1 do write(a[i]: 5: 3,', '); write(a[n]: 5: 3,'.');

/*количество элементов кратных 3*/

kol: =0;  

for i: =1 to n do

if a[i] mod 3 =0 then kol: =kol+1;  

/*вывод ответа*/

writeln('количество элементов массива, кратных трем: ',kol);

end.