tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Заменить все отрицательные
Заменить все отрицательные элементы массива нулями
89539123898
2 27.06.2019 18:50
0
Ответы
boikov2o
22.07.2020 07:29
Const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if a[i]<0 then
a[i]:=0;
end;
writeln;
for i:=1 to n do
write(a[i]:4);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
22031982golub
09.09.2020 13:28
1) Представьте с развернутой записи числа: 10 111. 214. 1709, 100, 101 11., 1010, 10? 10! 10 10 і гараараа ....
totty1
09.09.2020 13:28
Что мальчик делает почему ? Объясни почему умоляю. ...
kairatfylosof
30.12.2021 01:01
Тема: Вычисление объема видео памяти. 1. Создайте таблицу в текстовом процессоре Word и заполните ее вычислив: количество пикселей, глубину цвета (i), или количество...
Лимон113848448
30.12.2021 00:56
Сколько единиц содержится в двоичной записи значения выражения: 16^2013 + 2^2010 - 15...
morozhenkom
30.12.2021 00:48
Задание 5. (2б) Перечислите кабельные каналы по информатике...
ValeraSmirnov213123
22.12.2020 19:00
Создать массив из 20 элементов случайными числами. Четные элементы поделить на 2, а нечетные умножить на 2. Вновь созданный массив распечатать....
BlackGus007
22.12.2020 18:59
что делает клавиша Ctrl+End Зарание огромное...
БатяОтвечало
22.12.2020 18:59
И если можно,объясните как это решается...
Ppapit
22.12.2020 18:59
задана матрица целых чисел А(NxM). В каждой строке заменить максимальный элемент суммой цифр минимального элемента этой же строки. Паскаль...
jumaev1998
22.12.2020 18:59
и если можно,объясните как это решается...
Популярные вопросы
Сравнение организма симбиоз и организм паразит чем они отличаются...
3
Решить в 50 кубический метров воздуха содержится 10,2 кубических метра....
2
От двух пристаней находячихся на расстоянии 180 км отошли навстречу...
2
Найти область определения √(х^2-4х)...
3
Очём повествует рассказ муму? против чего он направлен и что. утверждает...
1
Детям рекомендуется находиться за компьютером не больше 1ч в день.ваня...
1
Таблица по биологии на тему произхождения человека - этапы эволюции...
1
Как называется стих давайте же мыться купаться...
2
Вкаких городах россии проводили олимпиаду в 20-21вв....
1
Решить уравнения. 1) реши уравнения. 15*с+45-12=78 (6*у+14): 2+15=40...
3
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if a[i]<0 then
a[i]:=0;
end;
writeln;
for i:=1 to n do
write(a[i]:4);
end.