В этой задаче вам дается массив целых чисел a. Требуется из каждой тройки чисел в этом...

Question

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

Comments

может вторая тройка это 2, 3, 4?

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.