Составить программу , заменяющую отрицательные элементы элементы массива A[10] нулями
Составить программу , заменяющую отрицательные элементы элементы массива A[10] нулями
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
uses crt;
var a:array [1..10] of integer;
i:integer;
Begin
ClrScr;
for i:= 1 to 10 do
a[i]:=10-random(25);
for i:= 1 to 10 do
write(a[i]:4);
Writeln;
for i:= 1 to 10 do
if a[i]<0
Then a[i]:=0;
for i:= 1 to 10 do
write(a[i]:4);
Readln;
End.