Хочешь увидеть свое фото тут?
Помогай другим с учебой и мы сделаем тебя популярным
  1. Заходи в раздел «Нужен ответ» и отвечай
    на любые вопросы
  2. Следи за рейтингом — тут
  3. Не мухлюй! Пиши ответы и объяснения сам, своими словами, пользуйся своей головой. Копировать с других сайтов запрещено
  4. 31 мая мы подведем итоги. Фото 5 самых лучших помощников будут размещены на месте этого банера + ссылка на твой ВК (по желанию).
    5 млн человек увидят, что ты самый крутой
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
ВходРегистрация

Вход

или

Регистрация