Дан целочисленный массив из 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.

Panda2004s Panda2004s    3   13.08.2019 15:50    2

Ответы
ааnell714 ааnell714  04.10.2020 16:25
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика