Решить задачу в Паскале: В числовом массиве из 10 элементов…

Решить задачу в Паскале: В числовом массиве из 10 элементов, заданных случайным образом от -100 до 100: а) удалить первый положительный элемент; б) удалить все отрицательные элементы. Решить это в одной задаче (можно и по отдельности, главное, чтобы работала программа) срочно! Жду верного и быстрого ответа)

в избранное

otomo

07 марта 2023

1) program gt; var a,b: array[1… 100]of integer; n,m,i,q: longint; beginRandomize; q: =0; for i: =1 to 10 dobegina[i]: =random (200) -100; if (a[i]>0) then beginq: =q+1; if (q=1) then a[i]: =400; end; end; for i: =1 to 10 dobeginif (a[i]<>400) then write (a[i],'); end; end.2) program gt; var a,b: array[1… 100]of integer; n,m,i,q: longint; beginRandomize; for i: =1 to 10 dobegina[i]: =random (200) -100; if (a[i]<0) then begina[i]: =400; end; end; for i: =1 to 10 dobeginif (a[i]<>400) then write (a[i],'); end; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?