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.