for I := 1 to N do if A[I] > 0 then S := S+ A[I]*A[I]; writeln (' S=', S)
нужно заменить на цикловой оператор с предусловием WHILE
Код в теги заключайте
volvo
31.03.2005 0:06
Значит, делаем так: синтаксис 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
31.03.2005 0:47
в FAQ.
Guest
1.04.2005 0:14
volvo merci beaucoup
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.