//PascalABC.NET версия 3.2, сборка 1389 //Если программа не запускается, то обновите версию
function CreateArray(length: integer): array of integer; begin var a := new integer[length]; for var i := 0 to length - 1 do a[i] := Random(0, 100); // Println(a); Result := a; end;
begin var arrays := new List<(char, array of integer)>(); arrays.Add(('a', CreateArray(15))); arrays.Add(('b', CreateArray(13))); arrays.Add(('c', CreateArray(08))); arrays.Add(('d', CreateArray(11))); arrays.Add(('e', CreateArray(14))); arrays.Add(('f', CreateArray(10))); arrays.Add(('g', CreateArray(09)));
foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do begin Println(a.Item1, a.Item2.Min()); end; end.
Я только номер 1 понял как по схемам сделать, номер 2 аналогичен 1 только проверка (в ромбах) на числа от 4 до 8, от 9 до 15 от 16 до 20, от 21 до 3. А вот как третий номер делать по схемам я хз, если нужна прога на паскале, то скину
Паскаль 1 номер
program gg1; var a,b,c,a1,b1,c1,s:integer; begin writeln('Введите числo а'); read(a); writeln('Введите числo c'); read(c); writeln('Введите числo b'); read(b); if (a>=0) and (b>=0) and (c>=0) then begin a1:=sqrt(a) b1:=sqrt(b) c1:=sqrt(c) writeln(a1) writeln(b1) writeln(c1) end; else if (a<0) and (b<0) and (c<0) then begin a1:=a*a b1:=b*b c1:=c*c writeln(a1) writeln(b1) writeln(c1) end; else begin s:=a+b+c; writeln(s); end; end.
//Если программа не запускается, то обновите версию
function CreateArray(length: integer): array of integer;
begin
var a := new integer[length];
for var i := 0 to length - 1 do
a[i] := Random(0, 100);
// Println(a);
Result := a;
end;
begin
var arrays := new List<(char, array of integer)>();
arrays.Add(('a', CreateArray(15)));
arrays.Add(('b', CreateArray(13)));
arrays.Add(('c', CreateArray(08)));
arrays.Add(('d', CreateArray(11)));
arrays.Add(('e', CreateArray(14)));
arrays.Add(('f', CreateArray(10)));
arrays.Add(('g', CreateArray(09)));
foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
begin
Println(a.Item1, a.Item2.Min());
end;
end.