Паскаль. дан одномерный массив, значения которого вводятся с клавиатуры . вычислить количество отрицательных элементов данного массива. на экран вывести исходный массив и полученный результат
185
215
Ответы на вопрос:
Var a: array[1..100] of integer; i,c,n: integer; begin readln(n); for i: =1 to n do begin read(a[i]); write(a[i],' '); if a[i]< 0 then c: =c+1; end; writeln('кол-во отриц.=',c); end.
Популярно: Информатика
-
kondan11118.05.2023 20:55
-
Tittans10413.05.2023 06:29
-
ianezlo24.09.2020 11:38
-
strelecky01.01.2022 08:16
-
hohlovm7112.04.2022 00:53
-
777kicigina01.02.2020 15:10
-
Дря24.07.2020 19:43
-
kozlov2004129.09.2021 14:02
-
denis256520.02.2020 16:37
-
djgas1017.11.2021 08:34