Question

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

Answer 1

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]<n[i] then mn:=i;

my:=1;

write('Массив Y: ');

for i:=1 to k do

begin

if y[my]<y[i] then my:=i;

write(y[i]:5);

end;

writeln;

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

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

end.

Answer 2

===== 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, 99)).ToArray;

 Println('Массив Y');

 Y.Println;

 Println('Максимальное значение', Y.Max);

end.