1. Написать все возможные, эквивалентные данному фрагменты программы, с использованием других операторов цикла. J:=1; а;=2; b:=1; For i:=1 downto -10 do If b<>0 then A:=(а-1)*b; j:=j+1;b:=b-1;
2. Что будет выведено на экран в результате вычислений? For i:=1 to 3 do For j:=i downto 1 do If i+j>3 then Writeln (i*2+1) else writeln('*');
3. Найдите произведение суммы всех положительных и суммы отрицательных элементов одномерного массива из n чисел. Массив, и число элементов в нем, вводится с клавиатуры.
|