<h3>// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var N := ReadlnInteger;
var a := ReadArrInteger(N);
var X := ReadInteger;
a.Count(t -> t = X).Println
end.
<span> Этот порт для подключения к внешней сети</span>
Рыбак одет в зелёную кепку и кофту за спиной удочка он очень рад так как поймал большую рыбу его окружает вода и камыши
Рисовать долго, по этому объясню кратко (вы там проходите сейчас, должен знать КАК рисуются схемы, так что сам осилишь оформить), значит алгоритм следующий:
Я буду использовать переменную С с начальным значение 0. Прибавляя единицу в случае положительности переменной к концу алгоритма можно будет по её значению определить количество положительных переменных
1. Проверить число а на положительность.
( a > 0) (Да, нет)
Если да, то нарисуешь как на рисунке
2. Проверить число b на положительность.
( b > 0) (Да, нет)
3. Проверить число с на положительность.
( с > 0) (Да, нет)
4. Вывести значение С (Это ответ на вопрос)
5. Конец алгоритма (блок-схемы)
int a(1234)
a:=1324
a=1324
Обьевляем целочисленную переменную затем присваеваем ей значение 1324 и вот 1234=1324