Напишите программу для работы с массивом позволяющую 1)создать массив из 16 элементов целого типа, при описании количество элементов использовать именованную константу. 2)заполнить массив случайными числами, не превосходящими 20 3) вывести массив на экран в строку 4) подсчитать количество элементов, меньших 11
188
483
Ответы на вопрос:
1.var a: array[1..100] of integer; n,s,i: integer; begin write('количество элементов='); readln(n); for i: =1 to n do begin readln(a[i]); end; for i: =1 to n do begin if a[i]> 0 then a[i]: =-a[i] else a[i]: =abs(a[i]); end; for i: =1 to n do begin write(a[i]: 3); end; end.
Популярно: Информатика
-
DARO10027.01.2023 19:28
-
Violettik200626.07.2020 07:41
-
acrapovic13.06.2023 18:30
-
Vita081406.12.2020 21:53
-
rsharapov17.12.2020 23:05
-
NightyMigly12.12.2020 18:10
-
sevenfoldblood30.06.2021 03:59
-
дрин221.08.2022 23:00
-
shmilkovas28.03.2021 04:07
-
Masha0413123.01.2021 14:43