Question

В этой задаче вам дается массив целых чисел a. Требуется из каждой тройки чисел в этом массиве выбрать максимум и вывести его. Первая тройка - это числа, стоящие на местах 1, 2, 3. Вторая тройка - это числа, стоящие на местах 4, 5, 6 и так далее. PASCAL!!!

Answer 1

Type
Tmas = array [1..100] of longint;
var
i,A,max:longint;
m:Tmas;
begin
max:=0;
WriteLn('Введите количество элементов.');
ReadLn(A);
Writeln('Вводите элементы массива.');
for i := 1 to A do
begin
readln(m[i]);
if m[i]>max then
max :=m[i];
if i mod 3 = 0 then
begin
writeln(max);
max:=0;
end;
end;
end.

Answer 2

Ваша задача состоит в выборе максимального числа из каждой тройки чисел в массиве a. Для решения этой задачи вы можете использовать следующий код на языке Pascal:

pascalCopy code
program MaxFromTriplets;

const
  ARRAY_SIZE = 10;  // Размер массива a

var
  a: array[1..ARRAY_SIZE] of Integer;
  i: Integer;

begin
  // Заполнение массива a (для примера)
  a[1] := 5;
  a[2] := 9;
  a[3] := 3;
  a[4] := 2;
  a[5] := 7;
  a[6] := 1;
  a[7] := 8;
  a[8] := 6;
  a[9] := 4;
  a[10] := 0;

  // Вывод максимальных чисел из каждой тройки
  for i := 1 to ARRAY_SIZE div 3 do
  begin
    // Вычисление индексов чисел в тройке
    // Индексы первого числа в тройке
    var index1 := (i - 1) * 3 + 1;
    // Индексы второго числа в тройке
    var index2 := (i - 1) * 3 + 2;
    // Индексы третьего числа в тройке
    var index3 := (i - 1) * 3 + 3;

    // Поиск максимального числа в тройке
    var maxNumber := a[index1];
    if a[index2] > maxNumber then
      maxNumber := a[index2];
    if a[index3] > maxNumber then
      maxNumber := a[index3];

    // Вывод максимального числа из тройки
    writeln(maxNumber);
  end;
end.

Приведенный выше код создает массив a размером 10 и заполняет его значениями для примера. Затем он проходит по каждой тройке чисел и находит максимальное число, выводя его на экран. Вам необходимо изменить размер массива a и заполнить его вашими данными перед выполнением кода.

Обратите внимание, что код на Pascal чувствителен к регистру и требует правильного форматирования и окончаний строк.