maksik008
03.11.2022 07:58

преобразовать с Паскаля на питон, заранее program Matrix66;
type
matrix = array [1..10,1..10] of integer;

var
a:matrix;
Column, M, N, i, j:Integer;

procedure DelMatrixColumn(var mat:matrix; X:Integer);
var
i:integer;
begin
if x>0 then
begin
N:=N-1;
for j:=X to N do
for i:=1 to M do
mat[i,j]:=mat[i,j+1];
end;
end;

begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);

for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;

Column:=0;
for j:=1 to N do
begin
i:=1;
while ((i<=M) and (a[i,j]<0)) do inc(i);
if i=M+1 then Column:=j;
end;

DelMatrixColumn(a,Column);

for i:=1 to M do
begin
for j:=1 to N do
begin
Write(' : ',a[i,j]);
end;
writeln(' : ');
end;
end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Brynd
06.04.2023 12:16
Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

  readln;
end.
0,0(0 оценок)
Ответ:
Ole4ka2135
16.08.2022 07:05

Ядро́ (англ. kernel) — центральная часть операционной системы (ОС), обеспечивающая приложениям координированный доступ к ресурсам компьютера, таким как процессорное время, память, внешнее аппаратное обеспечение, внешнее устройство ввода и вывода информации. Также обычно ядро предоставляет сервисы файловой системы и сетевых протоколов.

Как основополагающий элемент ОС, ядро представляет собой наиболее низкий уровень абстракции для доступа приложений к ресурсам системы, необходимым для их работы. Как правило, ядро предоставляет такой доступ исполняемым процессам соответствующих приложений за счёт использования механизмов межпроцессного взаимодействия и обращения приложений к системным вызовам ОС.

Описанная задача может различаться в зависимости от типа архитектуры ядра и её реализации.

Объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота