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

Ответы 1

  • type Tmas = array [1..100] of longint; vari,A,max:longint;m:Tmas;beginmax:=0;WriteLn('Введите количество элементов.');ReadLn(A);Writeln('Вводите элементы массива.');for i := 1 to A do beginreadln(m[i]);if m[i]>max thenmax :=m[i];if i mod 3 = 0 thenbeginwriteln(max);max:=0;end;end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years