• Дан массив, содержащий 2016 положительных целых чисел, не
    превышающих 1000. Необходимо найти и вывести максимальный из тех
    элементов этого массива, восьмеричная запись которых содержит ровно
    3 цифры. Если таких чисел в массиве нет, ответ считается равным нулю.
    Исходные данные объявлены так, как показано ниже. Запрещается
    использовать переменные, не описанные ниже, но разрешается не
    использовать часть из описанных.
    const
    N=2016;
    var
    a: array [1..N] of integer;
    i, m, k: integer;
    begin
    for i:=1 to N do
    readln(a[i]);

    end.
    В качестве ответа Вам необходимо привести фрагмент программы, который
    должен находиться на месте многоточия. Вы можете записать решение также
    на другом языке программирования (укажите название и версию языка
    программирования). В этом случае Вы должны использовать те же самые
    исходные данные и переменные, какие были предложены в условии.

Ответы 1

  • 3 знака имеют восьмеричные числа в диапазоне [8^2:8^3)----------------------------const N=2016; var   a: array [1..N] of integer;   i, m, k: integer; begin for i:=1 to N do   readln(a[i]); m:=0;for i:=1 to n do   if (a[i]>=(8*8)) and (a[i]<(8*8*8)) and (a[i]>m) then m:=a[i];writeln (m)end. ---------------------PS: PascalABC.NETПримеры работы программы на массиве из 16 чисел:1)48 56 2 512 63 5 910 852 674 1000 4 0 8 10 59 1602)133 644 897 400 421 272 682 222 289 165 525 178 313 224 650 980421
  • Добавить свой ответ

Войти через Google

или

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

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

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