заменить For на While Опции

[-ice-]

нужно заменить строки

Код

for I := 1 to N do
if A[I] > 0 then
S := S+ A[I]*A[I];
writeln (' S=', S)

нужно заменить на цикловой оператор с предусловием WHILE

Код в теги заключайте

[volvo]

Значит, делаем так:
синтаксис For:

For <переменная> := <нач. значение> to <кон.значение> do begin
<тело цикла>
end;

синтаксис соответствующего ему While:

<переменная> := <нач. значение>
While <переменная> <= <кон.значение> Do Begin
<тело цикла>
<изменение значения переменной>
End;

Получаем:

Код

i := 1;
while I <= N do begin
 if A[I] > 0 then S := S+ A[I]*A[I];
 I := I + 1
end
writeln (' S=', S)

[Altair]

в FAQ.

[Guest]

volvo merci beaucoup