Pascal ABC

[25-17]

25-17 отредактировано

25-17

Помогите решить задачи в Pascal ABC...
Кто решат в долгу не останусь....
1.Последовательно вводятся N целых чисел.Найдите Сумму всех положительных среди них....
2.Последовательно вводятся N целых чисел.Найдите максимальное из них..
Ответ в ЛС если можно....

[Sumrac]

Sumrac отредактировано

Да прибудет с тобой...

Че??

[Murang]

Murang отредактировано

Профессионал

1 164 $

[snaiper. 0]

snaiper. 0 отредактировано

Гуру

щас попробую

Добавлено через 00:26 мин.
SuMrAc, за спам можешь и ---- получить)если не знаешь не спамь

[25-17]

25-17 отредактировано

25-17

By Um, Попробуй если не сложно..

[Samael]

Samael отредактировано

Специалист

количество вводимых чисел не определено?

[Митрич]

Митрич отредактировано Митрич

Продвинутый

1)не помню бэйсика, так что могу ошибиться, проверяй синтаксис

INTEGER I, X,S
S=0
FOR I=1 TO N
INPUT(X)
IF X<0 THEN GOTO MARK
S=S+X
MARK
NEXT I

Есть клоны бэйсика, которые только с номерами строк, тогда вместо MARK в строке с IF должен стоять номер строки с NEXT
Есть клоны, где можно выкинуть GOTO

Добавлено через 02:38 мин.

[25-17]

25-17 отредактировано

25-17

Митрич, не не правильно...(((((((((

[Митрич]

Митрич отредактировано Митрич

Продвинутый

Добавлено через 06:44 мин.
cоnst max=20;
var a:array [1..max] of integer;
maximum,i:integer;
begin
for i:=1 to max do readln(a);

maximum:=a[1];

for i:=2 to max do if a>maximum then maximum := a;

writeln(maximum);

end.

Тут я запутался чуть.сори если что..

[Кирилл Востриков]

Кирилл Востриков отредактировано

Продвинутый

все ку

[25-17]

25-17 отредактировано

25-17

Митрич, первая была ближе к правильному но все равно не то ....