Вариант 1

1. Является ли условным оператором следующая последовательность символов:(написать да или нет)

a. If x=10 then y:=x else y:= - x;

b. If x>3, x<6 then y:= 2*x else y:=5*x+7;

c. If a mod 2=0 then b:= a div 2; c:= b +a;

2. Используя полную форму условного оператора, упростите следующий фрагмент программы:

If f>0 then w:= 1;

If f=0 then w:=-1;

If f<0 then w:= -1;

3. Определите без компьютера, что будет выведено на экран при выполнении следующих фрагментов программ:

a) k:=20;

k:=k+10;

if k+10<>30 then k:=8 else k:=k-1;

writeln(k);

b) k:=20;

k:=k+10;

if k+10=30 then k:=8 else k:=k-1;

writeln(k);

c) p:=1;

if p>0 then p:=p+5;

write(p);

if p>10 then p:=p=1;

write(p);

​

uses crt;
var a, b, c, n, i, j :integer;   
s :array [1..10000] of integer;
begin
   clrscr;
   writeln ('Vvedite razmer masiva');
   read (n);
   writeln  ('Vvedite chislo X');
   read (a);
   for i:=1 to n do 
   begin 
      writeln ('Vvedit s[', i, '] element'); 
      read (s[i]); 
   end;
   for i:=1 to n do 
      for j:=1 to n-1 do 
         if s[j]<s[j+1] then   
         begin   
            b:=s[j];   
            s[j]:=s[j+1];   
            s[j+1]:=b;   
         end;
   for i:=1 to n do 
   begin 
      write (s[i], ' '); 
      if s[i]=a then inc (c); 
   end;
writeln;
if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet');
end.

P.S. Надеюсь на благодарность и лучший ответ.

Это что, метод решения показать ?!Ч.Я. (с точки зрения физики) - метод исследования таких систем, когда вместо свойств и взаимосвязей составных частей системы, изучается реакция системы, как целого, на изменяющиеся условия!
Что за чем:
1 - анализ условия задачи и определение основных теоретических данных необходимых для исследования (т.е. определений, законов)
2 - выбор приборов для исследования
3 - сборка электрической цепи 
4 - определение параметров цепи по показаниям приборов
5 - анализ полученных данных
6 - общий вывод
7 - сверка полученного результата с заданным конструктором решением
8 - анализ ошибочных действий исследователем (если они допущены)
Ч.Я. компьютер - это система, в которой внешнему наблюдателю доступны лишь входные и выходные величины, а структура и внутренние процессы неизвестны ))