Помогите решить задачку!!!!Умираю!!!

29.05.2011, 18:54. **Показов** 706. **Ответов** 3

Студворк — интернет-сервис помощи студентам

Решаю кр, осталась последняя задача, написала программу и не идет в АВС.Вот условие и моя программа, помогите пожалуйста)))

Введите последовательность из любых чисел R.
Определите сумму положительных и сумму отрицательных чисел.

Математическая модель задачи:
Входные данные:
N – кол-во чисел R
I – параметр цикла, величина увеличивающая шаг на 1 (от 1 до n)
X – любые числа R
Выходные данные:
P – сложение положительных чисел
F –сложение отрицательных чисел

Предварительно p:=1
В цикле вводим числа R и сравним их и нулем, если (x>0), то p=p+x
Предварительно f:=0
В цикле вводим числа R и сравним их и нулем, если (x<0), то f=f+x

Программа на языке Паскаль:
Program p3;
uses crt;
var n, i: integer;
x, p, f : real;
begin
clrscr;
writeln(‘zadaite kol-vo chisel’);
readln (n);
p:=1;
for i=1 to n do
f:=0;
for i=1 to n do
begin
write (‘x=’);
readln (x);
if (x>0) then p:=p+x
if (x<0) then f:=f+x
end;
writeln (‘p=’ , p:5:2);
writeln (‘f=’ , f:5:2);
readln;
end.

@Pol Shon · 29.05.2011, 19:27

мда, девушка....умирать вам с таким синтаксисом действительно нужно....
принцип правильный, но кто же такие кавычки пишет??????

и почему р=1??? если же сумма то пусть и будет равен 0.
зачем дважды зациклили одно и тоже?
и еще раз : выучите синтаксис....

Добавлено через 10 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program p3;
 uses crt;
 var n, i: integer;
 x, p, f : real;
 begin
 clrscr;
 writeln('zadaite kol-vo chisel');
 readln (n);
 p:=0;
    f:=0;
           for i:=1 to n do  begin
                  write ('x=');
                        readln (x);
                      if (x>0) then p:=p+x;
                  if (x<0) then f:=f+x;
                              end;
 writeln ('p=' , p:5:2);
 writeln ('f=' , f:5:2);
 readln;
 end.

29.05.2011, 19:38

спасибо большущее)))
я в этом вообще не шарю так что делала вообще первый раз(это так для отмазы))))
так что про какие там синтаксисы и т.д. вообще ничего не поняла, но все равно спасибо)))))=*****

@Pol Shon · 29.05.2011, 19:46

ты кавычки не такие ставишь. нужно не наклонные. а прямые. они на букве Э находятся)))))

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

BossyBitch

	Помогите решить задачку!!!!Умираю!!! 29.05.2011, 18:54. Показов 706. Ответов 3 Метки нет (Все метки) Решаю кр, осталась последняя задача, написала программу и не идет в АВС.Вот условие и моя программа, помогите пожалуйста))) Введите последовательность из любых чисел R. Определите сумму положительных и сумму отрицательных чисел. Математическая модель задачи: Входные данные: N – кол-во чисел R I – параметр цикла, величина увеличивающая шаг на 1 (от 1 до n) X – любые числа R Выходные данные: P – сложение положительных чисел F –сложение отрицательных чисел Предварительно p:=1 В цикле вводим числа R и сравним их и нулем, если (x>0), то p=p+x Предварительно f:=0 В цикле вводим числа R и сравним их и нулем, если (x<0), то f=f+x Программа на языке Паскаль: Program p3; uses crt; var n, i: integer; x, p, f : real; begin clrscr; writeln(‘zadaite kol-vo chisel’); readln (n); p:=1; for i=1 to n do f:=0; for i=1 to n do begin write (‘x=’); readln (x); if (x>0) then p:=p+x if (x<0) then f:=f+x end; writeln (‘p=’ , p:5:2); writeln (‘f=’ , f:5:2); readln; end.

BossyBitch
	29.05.2011, 19:38
	спасибо большущее))) я в этом вообще не шарю так что делала вообще первый раз(это так для отмазы)))) так что про какие там синтаксисы и т.д. вообще ничего не поняла, но все равно спасибо)))))=*****

@Pol Shon 13 / 13 / 6 Регистрация: 20.05.2011 Сообщений: 60
	29.05.2011, 19:46
	ты кавычки не такие ставишь. нужно не наклонные. а прямые. они на букве Э находятся))))) 0