Toggle sidebar Toggle sidebar
ВОПРОС · Q&A

Задача

2 ответов 5,1 тыс.
AI-выжимка обсуждения скоро

Краткие тезисы обсуждения со ссылками на ключевые ответы появятся здесь.

Сортировать по дате Сортировать по голосам
Автор вопроса
G Guest Участник
#1
Вводится n чисел, найти колличество отрицательных(Turbo Pascal) Помогите плиз
 
За 0 Против
#2
Армия поможет.
 
За 0 Против
#3
Код: 
var i,n,m:integer; x:real;
begin
m:=0;
readln(n);
for i:=1 to n do
begin
Writeln(i,'ое число');
Readln(X);
if x<0 then m:=m+1
end;
writeln(m);
end.
 
Для ответа нужно войти/зарегистрироваться

Ещё по теме

4
Сергей Попов СтатьяРазбор задач CTF: pwn, crypto, web, forensics Сергей Попов·17.09.2026·HackerLab: практика и соревнования 0 1 тыс. 17.09.2026 Сергей Попов HackerlabПрезидент фонда Сергей Попов·13.05.2026·OSINT 3 2 тыс. 10.08.2026 Сергей Попов ЗаметкаЗастрял на задаче: когда упорство становится потерей времени Сергей Попов·25.09.2026·Общение и нетворкинг 1 345 25.09.2026 F ИИ для задач по кибербезопасности прямо в Telegram: Claude Fable, Kimi K3, GLM 5.3 и другие модели freez·29.08.2026·Безопасность ИИ и LLM 0 2 тыс. 29.08.2026
Верх Низ
Назад