1)укажите ошибку, если таковая имеет место, в фрагменте программы, по которым на экран выводится в столбик таблица квадратов для чисел из промежутка [1, 20]. i: = 1; while i < = 20 do writeln (i, '-', i * i) i = i + 1; а) оператор i = i + 1 должен предшествовать оператору writeln (i, '-', i * i) б) начальное значение переменной i должно быть 0; в) к операторам writeln (i, '-', i * i) i = i + 1; нужно применить оператор объединения; г) нет ошибок 2)6 укажите значение счетчика после выполнения оператора for.for k: = 1 to 5 do

ответ в, так как переменная повышается вне цикла а значит цикл никогда не остановится,
А во втором значение счетчика = 5

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   

   write('Укажите кол-во эл-ов - ');

   

   read(N);

   

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       

       write(arr[i],'  ');

       

       if arr[i]>max then max:=arr[i];

   end;

   

   writeln;

   

   writeln('Максимальный эл-т - ',max);

   

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     

     write(arr[i],'  ');

     end;

 

end.

Объяснение:

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -