69 . вопрос 1.для какого из слов ложно логическое выражение: (вторая буква гласная) или не (третья буква согласная) выберите один ответ: 1.канал 2.адрес 3.связь 4.модем вопрос 3 при каком условии последовательность числовых переменных а, в и с не является по возрастанию? выберите один ответ: 1. (b> a) и не (b > = c) 2. не (a< =b) и (b < c) 3. не (a> =b) и (b < c) 4. не (b< =a) и (b < c) вопрос 4. при каком условии последовательность числовых переменных а, в и с является по убыванию? выберите один ответ: 1. не (a> =b) и (b< =c) 2. не (a> =b) и (b> c) 3. (a> b) и (c> b) 4. (a> b) и (b> c) вопрос 5. для какого из слов истинно логическое выражение: не (первая буква гласная) и не (третья буква согласная) выберите один ответ: 1. модем 2. канал 3. связь 4. адрес

Акод верный? судя по тому, что в условии цикла стоит знак < =, цикл будет работать до тех пор, пока i меньше или равно некоторого числа. то есть цикл должен остановиться, когда i станет больше выбранного числа (которое нужно поставить вместо многоточия). но в цикле стоит операция уменьшения параметра i. то есть i будет только уменьшаться! цикл будет бесконечным! пример 1: i: =5; while i< =4 do begin writeln(''); i: =i-1; end; цикл не сработает ни разу, т.к. условие с самого начала неверное! пример 2: i: =5; while i< =5 do begin writeln(''); i: =i-1; end; условие верное, программа "заходит в цикл", выполняет вывод текста, а затем уменьшает значение i на 1, т.е. i=4. далее идет автоматическая проверка условия цикла, и оно снова верное: 4< =5! идет снова выполнение всех операторов цикла, и опять уменьшение i на 1, то есть i=3. и снова условие цикла верное: 3< =5! и так далее. теперь каждое следующее значение параметра i меньше предыдущего, а значит, и условие цикла всегда верное! цикл никогда не остановится! пример 3: i: =5; while i< =6 do begin writeln(''); i: =i-1; end; и даже если вместо многоточия поставить число более 5, получим аналогичный результат: условие верное, программа "заходит в цикл", выполняет вывод текста, а затем уменьшает значение i на 1, т.е. i=5. далее идет автоматическая проверка условия цикла, и оно снова верное: 5< =5! идет снова выполнение всех операторов цикла, и опять уменьшение i на 1, то есть i=4. и снова условие цикла верное: 4< =5! и так далее. теперь каждое следующее значение параметра i меньше предыдущего, а значит, и условие цикла всегда верное! цикл никогда не остановится! возможно, ошибка в условии цикла? если записать while i > =3 то цикл сработает 3 раза: при i, равном 5, 4, 3. либо неверно указано действие в цикле: i: =i-1. если записать i: =i +1, а вместо многоточия поставить i< =7, то цикл также сработает ровно 3 раза, т.к. i будет менять свое значение 5, 6, 7.

Const   n = 50; // количество элементов массиваvar   a: array [1..n] of integer;   i, sum: integer;   cr: real; // среднее арифметическоеbegin   for i : = 3 to n do       a[i] : = random(1000);   // диапазон рандомных чисел   readln(a[1]);   // 1 элемент массива   readln(a[2]);   // 2 элемент массива   for i : = 1 to n do       sum : = sum + a[i];   cr : = sum / n;   writeln(a);   writeln(sum);   writeln(cr); end.