Ответы на вопрос:
Объяснение:
uses crt;
var
a:array [1..100] of integer;
s,n,i:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
s:=0;
clrscr;
for i:=1 to n do
if A[i]<0
then
s:=s+1;
for i:=1 to n do
writeln ('summa otricatelnih chisel:');
writeln (s);
end.
Популярно: Информатика
-
Таксман01.02.2020 22:57
-
Катя09200611.07.2020 21:16
-
nOMOSHHuK07.03.2021 07:32
-
помогите117008.07.2021 11:32
-
стас48926.01.2023 12:53
-
100dan10028.04.2022 01:41
-
nastyakostikov108.05.2021 09:09
-
CherryyLou10.05.2022 06:09
-
Ксенька2001200205.01.2021 05:23
-
azalinasabirova03.09.2020 17:14