Кроссворд: «ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ КОМПЬЮТЕРА» - вопрос №151858881 от kuzminanika2000 31.01.2023 23:34

Question

Информатика: Кроссворд: «ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ КОМПЬЮТЕРА» 1. Последовательность команд, которую выполняет компьютер в процессе обработки, передачи и хранения данных для решения задач 2. Поименованная область внешней памяти 3. Область внешней памяти, которая содержит имена файлов и указание на начальный адрес их размещения на носителе 4. Информация, представленная в форме, пригодной для ее хранения, передачи и обработки с компьютера 5. Базовая система ввода/вывода, загрузчик ОС, модули ОС, командный процессор,

kuzminanika2000 · Answer

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var m,n:integer;
Write('Количество строк и столбцов матрицы: ');
Read(n,m);
var a:=MatrixRandom(n,m,10,99);
for var i:=0 to n-1 do begin
    for var j:=0 to m-1 do Print(a[i,j]);
    Writeln
    end;
var p:=ReadInteger('Введите число Р:');
var b:array of integer;
SetLength(b,4*m);
var k:=0;
for var i:=n-p to n-1 do
    for var j:=0 to m-1 do
      if a[i,j] mod 4=0 then begin
        b[k]:=a[i,j]; Inc(k)
        end;
SetLength(b,k);
b.Print
end.

Тестовое решение:
Количество строк и столбцов матрицы: 6 8
67 70 68 72 38 72 96 38
49 75 24 55 72 63 21 40
72 12 60 22 74 30 13 45
22 45 39 24 35 97 64 31
76 62 15 94 56 28 31 13
41 67 75 37 67 13 25 20
Введите число Р: 4
72 12 60 24 64 76 56 28 20