Как превратить слово море в суша, и слово миг в век

Question

Информатика: Как превратить слово море в суша, и слово миг в век

пвиопп · Accepted Answer

Const   n = 10; var   a: array[1..n] of integer;   i, k, min, max: integer; begin   randomize;   min := 100; max := -100;   Writeln( исходный массив );   for i := 1 to n do   begin     k := random(40) - 20;     a[i] := n;     if max k then max := k     else if min k then min := k;     Write(k, )   end;   Writeln;   Writeln( min= , min, , max= , max) end. Тестовое решение: исходный массив -8 3 19 -14 19 13 -17 -2 8 8 min=-17, max=19 const   n = 10; var   a: array[1..n] of integer;   i, k, s: integer;...

MOGZ ответил