Регистрация
vanyaevsik
26.10.2021 05:54
Информатика
Есть ответ 👍

Решить алгоритмы с числовыми величинами по информатике. 8класс(желательно с решением на фотке)

258
449
Посмотреть ответы 1

Ответы на вопрос:

chovganirina
chovganirina
4,6(96 оценок)
// pascalabc.net 3.0, сборка 1128 procedure deleterow(var a: array[,] of integer; r: integer); begin   var rows: =a.getlength(0);   var cols: =a.getlength(1);   for var i: =r to rows-2 do       for var j: =0 to cols-1 do a[i,j]: =a[i+1,j];   setlength(a,rows-1,cols) end; begin   var b: array[,] of integer: =((1,2,3,,6,0,8),           (9,10,11,,0,15,,18,19,20));   writeln('исходный массив: ',b);   var n: =b.getlength(0);   var m: =b.getlength(1);   // удаляем строки без нулевых элементов   for var i: =n-1 downto 0 do begin       var foundzero: =false;       for var j: =0 to m-1 do           if b[i,j]=0 then begin foundzero: =true; break end;       if not foundzero then deleterow(b,i) // удалить строку       end;   writeln('результирующий массив: ',b); end. тестовое решение: исходный массив: [[1,2,3,0],[5,6,0,8],[9,10,11,12],[13,0,15,16],[17,18,19,20]] результирующий массив: [[1,2,3,0],[5,6,0,8],[13,0,15,16]]

Популярно: Информатика