(51 ) (pascal) есть массив n[18]
: все двузначные элементы массива переписать в новый массив y. найти максимальные элементы в массивах n и y.

ответ:

var n,y: array [1..18] of integer;

i,k,mn,my: integer;

begin

write('массив n: ');

for i: =1 to 18 do

begin

n[i]: =random(41)-20;

write(n[i]: 5);

if ((n[i]> 9) and (n[i]< 100)) or ((n[i]> -99) and (n[i]< -10)) then

begin

k: =k+1;

y[k]: =n[i]

end

end;

writeln;

mn: =1;

for i: =1 to 18 do if n[mn]

my: =1;

write('массив y: ');

for i: =1 to k do

begin

if y[my]

write(y[i]: 5);

end;

writeln;

writeln ('максимальный элемент массива n равен ', n[mn]);

writeln ('максимальный элемент массива y равен ', y[my])

end.

pascalabc.net

begin

  var n : = arrrandom(18, -199, 199);   // случайные числа

  println('массив n');

  n.println;

  println('максимальное значение', n.max);

  var y : = n.where(p -> abs(p).inrange(10, ;

  println('массив y');

  y.println;

  println('максимальное значение', y.max);

end.