Решите . 4.записать на языке паскаль алгоритм определения принадлежности точки x отрезку [a, b]. значения x, a, b ввести с клавиатуры. результат работы вывести на экран. 5.записать на языке паскаль алгоритм присваивания переменной y значения наибольшей из трех величин a, b, c. значения a, b, c ввести с клавиатуры. результат работы вывести на экран.

1)var a,b,x: real; begin writeln('введите a'); readln(a); writeln('введите b'); readln(b); writeln('введите х'); readln(x); if (x> =a) and(x< =b)then writeln('принадлежит') else writeln('не принадлежит'); end.2)var a,b,c,y: real; begin writeln('введите a'); readln(a); writeln('введите b'); readln(b); writeln('введите c'); readln(c); if (a> =b) and(a> =c) then y: =a else if (b> =a)and(b> =c) then y: =b else y: =c; writeln('y=',y); end.

Var   i,n, pol: integer;   //pol - количество положительных чисел, n - количество всех чисел   a,s: real;   //a- вводимое число, s - сумма положительных чисел begin   pol: = 0;   //обнуляем счетчик   s: = 0;     writeln('введите количество чисел');   readln(n);   for i: = 1 to n do   begin     writeln('введите число');     readln(a);     if a > 0 then     begin         s: = s + a;       pol: = pol + 1;       end;   end;   writeln('среднее арифметическое положительных чисел:   ', s / pol);   {среднее арифметическое равно сумме чисел делить на их количество} end.

Var   a: integer;   //a - вводимое число   n, s: integer;   //n- количество введенных чисел, s - сумма этих чисел begin   n: = 0;   //обнуляем счетчик   s: = 0;   a: = 1;   {присваиваем значение, отличное от нуля, чтобы цикл не завершился, не начавшись}   while a < > 0 do   begin     writeln('введите целое число');     readln(a);     if a < > 0 then   //чтобы при подсчете среднего арифметического не учитывался 0     begin         n: = n + 1;         s: = s + a;     end;   end;   writeln('среднее арифметическое введенных чисел:   ', s / n); end.