Задан массив X[1 ... N]. Что нужно поставить вместо многоточия, чтобы в результате элементы в массиве X были переставлены в обратном порядке? for k:=1 to ... do begin c:=X[k]; X[k]:=X[N+1-k]; X[N+1-k]:=c end;

Сколько раз будет выполнен этот цикл? i:=2; while i

Program ca; var p, i: integer; begin i : = 3; p : = 1; while i < = 23 do begin p : = p * i; i : = i + 2; end; writeln ('p = ', p) ; end. Говорит что арифметич. переполнение 2 задания) Задан массив А [1 ... 5].

Цикл с параметром и шагом - 1 объявляется с использованием конструкции a) for i:=i1 downto i2 do begin ... end; b) repeat begin ... end until (выражение_условие) ; c) for i:=i1 to i2 do begin ... end; d) if (выражение_условие) begin ...

5. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 4 раза? i: = ...; while i>=3 do begin writeln ('Привет!') ; i:=i-1; end; Ответ: введите число 6.

1) Задан массив из 11 целых чисел. Найти сумму элементов массива, кратных 5 2) Задан массив из 11 целых чисел. Посчитать количество нечётных элементов массива. 3) задан массив из 9 целых чисел. Вывести на экран чётные элементы