1.Какие из идентификаторов заданы не правильно и почему?
Pig end саша sasha 2abc abc2 45
2.Определить, что будет выведено, после выполнения программы.
Var m, n, x, y:integer;
Begin
M:=20; n:=-10;
X:=m – n; y:=m + n;
Ifx>ythenbegin
X:=2*x; y:=1
End
Elsey:=2*y;
Writeln(‘x=’,x,’ ‘,’y=’,y)
End.

Обнаружена проблема и windows была закрыта для предотвращения dama g4 к компьютеру R если это первый раз, когда вы видели этого сообщения об ошибке на экране. перезагрузите компьютер. Если на экране появится снова. f 07 низким следующие действия: убедитесь, что аппаратное или программное обеспечение правильно insta если это новая установка, попросите вашего оборудования производителя программного обеспечения для ОС windows или обновлений, которые вы, возможно, если проблемы будут продолжаться отключите или удалите все недавно установленное оборудование или программное обеспечение отключить памяти BIOS такие параметры кэширования или shadow1ng. Если Вам необходимо использовать в безопасном режиме удалить или отключить компоненты, перезагрузить компьютер, нажмите F8, чтобы выбрать дополнительные параметры запуска, а затем выберите безопасный режим. Техническая информация остановить Beg1nn1 НГ дамп phys1ca1 физической памяти полного дампа памяти. свяжитесь с вашим системным admin1 strator или technica группы поддержки для получения

Type
  mas=array[,] of integer;
var
  i,j,ik,jk,k,max:integer;
  a:mas;
  b:array[0..5]of integer;//вс массив
begin
setlength(a,5,6);
writeln('Массив:');
for i:=0 to 4 do
  begin
  for j:=0 to 5 do
    begin
    a[i,j]:=random(-10,10);
    write(a[i,j]:4);
    end;
  writeln;
  end; 
writeln('Вставка столбцов:');
// в массиве b признак наличия в столбце максимума
for i:=0 to 4 do
  for j:=1 to 5 do
    if a[i,j]>max then
      max:=a[i,j];
for i:=0 to 4 do
  for j:=0 to 5 do
    if a[i,j]=max then b[j]:=1;
for i:=0 to 5 do k:=k+b[i];
k:=5+k;
setlength(a,5,k+1);
jk:=k;
for j:=5 downto 0 do
  begin
    if b[j]=1 then
      begin
      for ik:=0 to 4 do a[ik,jk]:=1;
      jk:=jk-1;
      end;
    for ik:=0 to 4 do a[ik,jk]:=a[ik,j];
    jk:=jk-1;
  end;
for i:=0 to 4 do
  begin
  for j:=0 to k do
    write(a[i,j]:4);
  writeln;
  end;  
writeln('Обмен столбцов:');
for i:=0 to 4 do
  begin
  b[i]:=a[i,k-1];
  a[i,k-1]:=a[i,k];
  a[i,k]:=b[i];
  end;
for i:=0 to 4 do
  begin
  for j:=0 to k do
    write(a[i,j]:4);
  writeln;
  end;
end.