При х=3 и у=0. Выполняя логические операторы мы получаем x>=0 (истина) или true (значит истина). "Или" это логическое сложение, значит 1+1=1 , в логике. Дальше идет "И" х=3 (истина) или (у*у неравно 4), 1+1=1, при этом не равно 4, это будет истина. получаем что 1 (это "И")* 1=1. Отсюда возьмем первое (x>=0 or true) оно равно 1, возьмем второе (x=3 <>4) оно тоже будет равно 1, отсюда следует что 1*1=1
1)когда найдется элемент равный заданому 2)отсекается 1 элемент 3)Произведение элементов массива, которые лежат в промежутке [40;55)
в паскале как и почти любом ЯП есть переменные,которые содержат имя и значение,например (i: =0)->имя переменной i,значение 0.Значение переменной можно изменить,имя переменной нельзя.Массивы это переменные которые хранят несколько значений.Чтобы обратиться к определенному значению масива использовать синтаксис имямасива[индексмасива],например чтоб получить 3 элемент масива a использовать a[3].repeat (expression) until(boolean) это цикл,в котором будет выполняться expression(любой код) до тех пор пока boolean не будет верно.Boolean это выражение значение которого будет равно true/false(правда/неправда).Напрмер в repeat i:=i+1; until (a[i]=x) or (i=10); к переменной i будет прибавляться 1 до тех пор пока a[i] не равно x или i будет меньше 10(так как в масиве всего 10 элементов,если например i будет 11 это будет выход за границу массива).Каждый блок выполнения в цикле(в нашем случае i:=i+1) называется итерацией.В цикле for(a to max) в a идет создание переменной-счетчика(в нашем случае создание переменной i со значением 0) ,потом пишется to и идет максимальное значение счетчика.И итерации этого цикла(if (a[i]=>40) and (a[i]<55) then s:=s*a[i]; ).В конце каждой итерации автоматически значение счетчика увеличивается на 1.До тех пор пока счетчик меньше или равен max итерации будут выполняться. А вообще в интернете очень много обучающих статей по данной теме
Var m,j,r,n,sum,sumI,k:integer;C,b:Array[1..15]of integer;sr:real;Beginfor r:=1 to 15 do beginC[r]:= random(20)-10; write(C[r]:4);if C[r] >0 then begin n := n +1;sum:= sum + C[r];end;if r mod 2 = 0 then begin k := k +1;sumI:= sumI + C[r];j:=j+1;b[j]:=C[r];end;end;writeln;writeln('Kоличество положительных',n:4);writeln('Cуммa положительных',sum:4);writeln('Cуммa элементов стоящих на четных местах',sumI:4);writeln('Cреднеарифметическое элементов стоящих на четных местах',sumI/k:4);foreach m in b dowrite(m:4);end.
Выполняя логические операторы мы получаем x>=0 (истина) или true (значит истина). "Или" это логическое сложение, значит 1+1=1 , в логике. Дальше идет "И" х=3 (истина) или (у*у неравно 4), 1+1=1, при этом не равно 4, это будет истина. получаем что 1 (это "И")* 1=1. Отсюда возьмем первое (x>=0 or true) оно равно 1, возьмем второе (x=3 <>4) оно тоже будет равно 1, отсюда
следует что 1*1=1