Паскаль. заполнить массив случайными числами от -20 до 20. вывести на экран. все отрицательные числа заменить на 5
141
278
Ответы на вопрос:
Program chik; var a: array[1..1000]of integer; i,n: integer; begin readln(n); randomize; for i: =1 to n do begin a[i]: =random(41)-20; if(a[i]< 0)then a[i]: =5; end; for i: =1 to n do write(a[i],' '); end.
Популярно: Информатика
-
Vitek361306.10.2021 11:28
-
татьянаивановна105.11.2021 11:17
-
помогитечемсможите09.03.2021 05:10
-
DashaLatysheva117.06.2020 00:23
-
hide211.05.2023 19:28
-
abakanovalera25.01.2022 04:14
-
софья2005415.07.2020 00:34
-
Tima76429.11.2020 00:35
-
дима290326.10.2021 11:32
-
kidz12304.04.2020 17:30