Составьте блок-схему и программу на бейсике вычисления функции y, где x задаётся с клавиатуры.

Var a: array [1..10] of real; begin       writeln('введите 10 натуральных чисел');       for i: =1 to 10 do read(a[i]);       for i: =1 to 10 do               if a[i] > 0 then writeln(a[i]) end. программа просит пользователя ввести 10 натуральных чисел. для этого используется оператор read в первом цикле. во втором цикле проверяется каждое из 10 чисел. если оно положительное, т.е. больше 0, оно выводится на экран. затем программа завершает работу.

1) program lineynoeuravnenie; var a, b: integer; x: real; begin writeln ('введите коэффициенты a и b'); readln (a, b); x: =-b/a; write ('решите уравнение', x); end. 2) program veschestvennoe; var a, b, c: integer; d, x1, x2: real; begin writeln ('введите коэффициент a, b, c'); readln (a, b, c); if a=0 then begin x1: =-c/b; write ('одно решение', x1), end; d=b*b-4*a*c; if d< 0 then write ('корней нет'); if d=0 then begin x1: =-b/(2*a); write ('одно решение', x1); end; else begin x1: =(-b+sqrt(d))/(2*a); x2: =(-b-sqrt(d))/(2*a); write (x1,'',x2); end; end.