Дан массив.нужно посчитать количество положительных и отрицательных элементов.
293
443
Ответы на вопрос:
Var a: array [1..10]of integer; i, j, plus,minus: integer; begin plus: =0; minus: =0; for i: =1 to 10 do begin read ( a [ i ] ); if a[ i ] > 0 then plus : =plus+1; if a [ i]< 0 then minus: =minus+1; end; writeln (plus, minus); end.
Методика решения: создаем цикл через фор..то от 0 до длины массива -1 в цикле ифом проверяем знак числа (> =0|< 0) если больше то прибавляем единицу к переменной счетчику если меньше то к другой переменной. после цикла выводим обе переменные.
Все что захочешь,блокнот notebook создан для того что бы записывать адреса,номера,из него можно сделать "личный дневник",здесь важно воображение.
Популярно: Информатика
-
paveldol200713.07.2022 14:02
-
alexlol22806.03.2023 05:03
-
AnnLage21.06.2022 03:42
-
tkstkn13.04.2020 06:04
-
muradyanarutyun24.12.2022 15:22
-
милкаshow11.02.2020 13:29
-
yuyornevzkoxkdhd54308.07.2021 19:55
-
vladikkolbaska04.10.2021 00:21
-
prestigpad01.05.2021 22:57
-
Илона240722.07.2021 05:37