Не понял что именно от тебя хотят.но если все действия происходят в паскаль, то на оператор ветвления.а вот и сама программа на всякий случай: program proverka; uses crt; var x: real; begin clrscr; writeln ('введите x'); readln (x); if x< 0 then writeln ('отрицательное число x=' , x: 5: 2) else begin if x> 0 then writeln ('положительное число x=' , x: 5: 2) else writeln ('вы выбрали неверное значение'); end; readln; end.
Darialaza
22.04.2021
//pascal abc.net v3.1 сборка 1172 const n=4; var ma: array[1..n,1..n] of integer; i,j: integer; begin randomize; for i: =1 to n do begin for j: =1 to n do begin ma[i,j]: =random(50)-20; write(ma[i,j]: 4); end; writeln; end; writeln('сторки: '); for i: =1 to n do begin write(i,': '); for j: =1 to n do if ma[i,j]< 0 then begin writeln(j); break; end; writeln; end; writeln('столбцы: '); for j: =1 to n do begin write(j,': '); for i: =1 to n do if ma[i,j]< 0 then begin writeln(i); break; end; writeln; end; end.