Pascal ABC

[Sumrac]

Че??

[Murang]

1 164 $

[snaiper. 0]

щас попробую

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

[25-17]

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

[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]

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

[Митрич]

Добавлено через 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]

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