Составить программу в паскаль. Вычислить и запомнить значения функции Yi=X , если Xi<0 Yi=0 , если Xi=0 -1 , если

Xi≤0 где Xi - элементы массива из 20 элементов
Аноним
32
1
29 декабря
04:41

Ответ или решение

отвечает Беляков Георгий
06 января
02:29
uses crt; var x, y: array [ 1 . . 20 ] of integer; i : integer; begin clrscr; randomize; writeln ( ' Massiv X : ' ); for i : = 1 to 20 do begin x [ i ] : = random ( 20 ) - 10; write ( x [ i ] , ' ' ); end; for i : = 1 to 20 do begin if x [ i ] больше 0 then y [ i ] : = x [ i ]; if x [ i ] = 0 then y [ i ] : = 0; if x [ i ] меньше 0 then y [ i ] : = - 1; end; writeln; writeln; writeln ( 'Massiv Y : ' ); for i : = 1 to 20 do write ( y [ i ] , ' ' ); readkey; end.
Знаете ответ?

Похожие вопросы

посмотреть все