1.Сколько раз выполнится тело цикла в следующих фрагментах программ:а)for i:= 7 downto 0 do c:=2*i; б)for i:= 1 to 8do c:=2*i; 2.Определите значение переменной X после выполнения следующего фрагмента программы:x:=2;for i:= 1 to 5 do x:=x+2*i;x:=x+1; 3.Определите значение переменной X после выполнения следующего фрагмента программы:x:=2;for i:= 1 to 5 do begin x:=x+2*i;x:=x+1;end; 4.Сколько раз выполнится тело цикла в следующих фрагментах программ:а) x:=12;while x>=0 do x:=x-1; б)x:=0;while x>=0 do x:=x-2; в)x:=0;while x>0 do x:=x-2; 5.Определите значение переменнойXпосле выполнения следующего фрагмента программы:x:=2;y:=6;while x+y<10 do begin x:=x+2;y:=y-1;end; 6.Выберите номер фрагмента программы, выполняющего такие же действия, что и приведенный ниже:for i:= 2to 6do begin x:=x+2*i;x:=x+1;end; 1)i:=2; while i< 6do begin x:=x+2*i;x:=x+1;i:=i+1;end; 2) i:=2; while i<= 6do begin x:=x+2*i;x:=x+1;end; 3) i:=2; while i<=6do begin x:=x+2*i;x:=x+1;i:=i+1;end; 7.Сколько раз выполнится тело цикла в следующих фрагментах программ:а)x:=12;repeatx:=x-1;untilx<0; б) x:=8;repeatx:=x-1;untilx>0; 8.Определите значение переменной X после выполнения следующего фрагмента программы:x:=1;repeatx:=x+2;x:=x+1;untilx>10; 9.Выберите аналогичный фрагмент приведенному выше, но записанный с цикла while. 1.X:=1;While x>10dobegin x:=x+2; x:=x+1; end; 2.X:=1;Whilex<10dobegin x:=x+2; x:=x+1; end; 3.X:=1;Whilex<=10dobegin x:=x+2; x:=x+1; end

Объяснение:

Участвуя в Событии, каждый игрок должен всегда соблюдать данные правила, а в случае, если игрок является Несовершеннолетним (определение приведено ниже), его родитель или законный опекун должен за выполнением Несовершеннолетним данных Правил, включая Правила поведения, указанные в разделе 8. Игрок (или его родитель или законный опекун в случае, если игрок является Несовершеннолетним) может принять данные Правила, щёлкнув по соответствующей кнопке в игровом клиенте, когда такая возможность будет предоставлена компанией Epic Games, Inc. (далее — Epic). Принимая участие в любой игре или матче в рамках События, игрок подтверждает, что он (или его родитель или законный опекун в случае, если игрок является Несовершеннолетним) соглашается с данными Правилами в соответствии с настоящим пунктом 1.2.

Объяснение:

a - массив;

sum - сумма элементов массива;

avrg - среднее значение.

Пример алгоритма решения задачи:

Заполняем массив (например, случайными числами).

Переменной sum изначально присваиваем значение 0.

Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.

Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).

Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)

Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.

const N = 10;

var

a: array[1..N] of integer;

i: byte;

avrg: real;

sum: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do sum := sum + a[i];

avrg := sum/N;

// весь массив

for i:=1 to N do write(a[i]:3);

writeln;

writeln('Среднее арифм.: ',avrg:4:2

for i:=1 to N do if a[i]>avrg then write(a[i]:3);

writeln;

end.

Пример выполнения программы:

7 36 21 48 33 46 7 17 19 41

Среднее арифм.: 27.50

36 48 33 46 41