Обнаружена проблема и 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.
