1.даны три маски файла, однозначно определяющих имя файла. известно,что имя этого файла состоит из 10 - id210213220211216 от olga695 16.12.2021 09:56

Question

Информатика: 1.даны три маски файла, однозначно определяющих имя файла. известно,что имя этого файла состоит из 10 символов,а расширение из трех. в ответе укажате имя этого файла. ? **sk*v? ? *? .j** m*? ? **ci*? .**g *o? ? о? **ty.*p? 2. у жителей села недесятичное в саду имеются 122 плодовых деревьев, из них 53 груши и 25 яблонь; и 112 кустов: 53 куста крыжовника и 15 кустов смородины. систему счисления, с каким основание используют жители села? а) 4; б) 2; в) 8; г) 6; д) 16.

olga695 · Accepted Answer

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

procedure MaxR(a:array[,] of integer; var b:array of integer);
begin
b:=a.Rows.Select(r->r.Select(x->x).Max).ToArray
end;

begin
Writeln('*** Исходный массив ***');
var a:=MatrRandom(4,3,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:array of integer;
MaxR(a,b);
Write('Максимумы построчно: '); b.Println
end.

Пример
*** Исходный массив ***
18 -32 -82
31 44 -16
-32 -28 2
-14 -6 -82

Максимумы построчно: 18 44 2 -6

MOGZ ответил