Определите значение переменной а после выполнения фрагмента алгоритма. а: =2 в: =2 нц в: =в+5 а: =а+3 кц при в> 14 можно, , только полное решение с разбором

Ты имеешь 2 переменные в данном цикле: А и В, им присвоили первоначальные значения А:=2, В:=2;

Это цикл с пост условием, т.е. условие выхода из цикла расположено в конце цикла.

Теперь просто выполняем цикл:

А:=А+3;

В:=В+5;

1. А=5, В=7

В>14? (7>14?) Нет, значит продолжаем выполнение цикла

2. А=8, В=12

В>14? Нет, продолжаем

3. А=11, В=17

В>14? Да, значит мы можем выйти из цикла и продолжить выполнение алгоритма

 

Последним значением переменной А в данном цикле было 11, т.е. А=11 после выполнения фрагмента алгоритма

Эта автоматически тебе всё сделает.
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      a[i]:=i+1;
      if max<a[i] then max:=a[i];
      writeln(a[i]);
end;
  writeln('Максимальный элемент равен: ',max);
end.

Если нужно будет ввести последовательность с клавиатуры, то вот:
Var i, n, max : Integer;
     a : array [1..30] of Integer;
 begin
    for i := 1 to 30 do
 begin
      Write('a[', i, ']='); 
      ReadLn (a[i]);
      if max<a[i] then max:=a[i];
end;
  writeln('Максимальный элемент равен: ',max);
end.

Pascal:

var x,y:integer;
begin
readln (x,y);
if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти');
if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти');
if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти');
if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти');
if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else
if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс');
readln;
end.