• В программе описан одномерный массив следующим образом:
    A:array [1..17] of integer;
    Что будет выведено на экран после выполнения процедуры Massiv, если в исходном массиве записаны следующие числа?
    6 18 33 12 29 16 13 33 24 24 17 6 22 26 33 31 4

    Procedure Massiv;
    Var i, m1, m2: integer;
    Begin
    m1 := A[1]; m2 := A[1];
    For i := 1 To 17 do begin
    If A[i] Mod 2 = 0 Then If m1 < A[i] Then m1 := A[i];
    If A[i] Mod 3 = 0 Then If m2 > A[i] Then m2 := A[i];
    End;
    Writeln(m1:4, m2:4);
    End;

Ответы 1

  • В переменной m1 ищется максимальный четный элемент массива, значит m1=26В переменной m2 ищется минимальный элемент массива, кратный 3, значит m2 =6
    • Автор:

      joeyiowd
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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