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.

Answer 3

Вот решение данной задачи на языке программирования Pascal:

pascalCopy code
program MaxElements;

const
  SIZE = 18;

type
  TArray = array[1..SIZE] of Integer;

var
  N, Y: TArray;
  i: Integer;
  maxN, maxY: Integer;

begin
  maxN := -1; // Начальное значение максимального элемента в массиве N
  maxY := -1; // Начальное значение максимального элемента в массиве Y

  // Заполнение массива N
  for i := 1 to SIZE do
  begin
    Write('Введите элемент N[', i, ']: ');
    Readln(N[i]);

    // Проверка, является ли элемент двузначным
    if (N[i] >= 10) and (N[i] <= 99) then
    begin
      // Запись двузначного элемента в массив Y
      Y[i] := N[i];

      // Проверка, является ли текущий элемент максимальным в массиве N
      if N[i] > maxN then
        maxN := N[i];

      // Проверка, является ли текущий элемент максимальным в массиве Y
      if Y[i] > maxY then
        maxY := Y[i];
    end
    else
    begin
      Y[i] := 0; // Если элемент не является двузначным, записываем 0 в массив Y
    end;
  end;

  // Вывод максимальных элементов
  Writeln('Максимальный элемент в массиве N: ', maxN);
  Writeln('Максимальный элемент в массиве Y: ', maxY);
end.

В этой программе мы используем два массива: N и Y. Массив N представляет собой исходный массив размером 18 элементов, в который пользователь вводит значения. Массив Y будет хранить только двузначные элементы из массива N.

Мы проходим по каждому элементу массива N и проверяем, является ли он двузначным. Если да, то мы записываем его в массив Y. При этом мы также находим максимальные элементы в обоих массивах: maxN - максимальный элемент в массиве N, и maxY - максимальный элемент в массиве Y.

В конце программы выводим найденные максимальные элементы.