Напишите программу, вычисляющую значение функции; {1 при x< 0 y= {0 при x=0 {1 при x> 0 пример данных: -5, 0, 5 пример вывода данных: y=-1, y=0, y=1 паскаль

259

396

Посмотреть ответы 2

Ответы на вопрос:

kristinakissa1

Информатика

4,6(89 оценок)

Var x, y: integer; begin readln(x); if (x < 0) then writeln ('y = -1'); if (x = 0) then writeln ('y = 0') else writeln ('y = 1') end.

romannikodov

Информатика

4,8(68 оценок)

Const n=6; //размерность массива var ar: array[1..n] of integer; i,min,b: integer; begin min: =2147483647; //верхняя граница типа integer b: =0; //проверка на наличие минимума - ложь for i: =1 to n do begin readln(ar[i]); if (i mod 2=0) and (ar[i]> 0) and (ar[i]< min) then {если индекс чётный, элемент положительный и меньше минимума} begin min: =ar[i]; //заменяем минимум элементом b: =1; //проверка на наличие минимума - правда end; end; if b=0 then writeln('нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум} end.