18
Аноним
Информатика
29 декабря 04:41

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

Xi≤0 где Xi - элементы массива из 20 элементов

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

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.
Написать ответ
Как написать  хороший ответ?
0 / 10000
ВходРегистрация

Вход

или

Регистрация