• Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые
    значения от 0 до 1000 включительно. Опишите на Паскале алгоритм, позволяющий найти
    и вывести максимальное значение среди трёхзначных элементов массива, не делящихся
    на 9. Если в исходном массиве нет элемента, значение которого является трёхзначным
    числом и при этом не кратно 9, то выведите сообщение «Не найдено».
    Исходные данные объявлены так, как показано ниже. Запрещается использовать
    переменные, не описанные ниже, но разрешается не использовать часть из них.
    const
    N = 20;
    var
    a: array [1..N] of
    integer;
    i, j, max: integer;
    begin
    for i := 1 to N do
    readln(a[i]);
    ...
    end.

Ответы 4

  • Спасибо огромное, только один вопрос. Как написать в паскале {Число подходит}?
  • В моём случае - это просто комментарий в коде.
  • ааа, извините, затупила
  • program max;const  N = 20;var  a: array [1..N] of integer;  i, j, max: integer;begin  for i := 1 to N do    readln(a[i]);  max := 0;  j := 0;  for i := 1 to N do    if (a[i] div 100 > 0) and (a[i] div 1000 = 0) and (a[i] mod 9 <> 0)    then {число подходит}      if a[i] > max       then        begin          max := a[i];          j := 1; {для отслеживания наличия хотя бы одного числа}        end;  if j = 1  then    writeln('Ответ: ', max)  else    writeln('Не найдено');end.
  • Добавить свой ответ

Войти через Google

или

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

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

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