Ответы на вопрос:
constn=50; vararr: array [1 .. n] of integer; i,tc,c: integer; beginc: =0; {otricatel'nie elementi}writeln('äëèíà ìàññèâà? '); readln(tc); {vvod massiva}for i: =1 to tc do readln(arr[i]);
for i: =1 to tc do if arr[i]< 0 then c: =c+1; writeln('otricatel''nih elementov=',c); end.
должно работать
Популярно: Информатика
-
viktoriakeda31.05.2020 02:46
-
tolstykh2005ow2t1s25.05.2021 12:59
-
danillirka19.04.2022 16:24
-
витка909.02.2023 11:27
-
kkkkkdashakkkk02.01.2022 09:15
-
katya05060028.12.2020 21:04
-
настя20033629.09.2022 11:25
-
Cunctator13.08.2021 04:33
-
nintendo16130.11.2021 12:28
-
samsung465253483206.05.2023 01:24