Инфа Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от -1000 до 1000 включительно. Опишите алгоритм, позволяющий найти и вывести максимальное значение среди отрицательных элементов массива, не оканчивающихся на 3. Если в исходном массиве нет элемента, значение которого отрицательно и не оканчивается цифрой 3, то вывести сообщение "Не найдено". Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных. const
N = 30;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i:= 1 to N do
readln(a[i]);
...
end.
111
395
Ответы на вопрос:
ответ:max := -1001;for j := 1 to N doif (abs(a[j]) mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];if max=-1001 then write('Не найдено') else write(max);Объяснение:max := -1001;
Присваиваем переменной max, которая должна содержать максимальное значение, минимальное значение -1 ( -1000 -1 = -1001).
for j := 1 to N doif (a[j] mod 10 <> 3) and (a[j]<0) thenif a[j]>max then max := a[j];Пробегаемся по элементам массива и смотрим: если остаток модуля элемента от деления на 10 неравен 3 (т.е. не оканчивается цифрой 3) и элемент меньше 0 (т.е. отрицательный), тогда, при условии, что элемент больше текущего максимального значения, переменную max перезаписываем -- присваиваем ей текущий элемент.
if max=-1001 then write('Не найдено') else write(max);Если переменная max содержит изначальное значение (-1001), то выводим на экран "Не найдено", иначе выводим на экран max.
Пример работы:
Бережливым быть умей, и по клавишам не бей, там, учтите этот факт, электрический контакт. если вводишь ты ответ, а компьютер скажет "нет", по дисплею не стучи,лучше правила учи! разрешать работу строгос разрешения педагога,и учтите : вы в ответе, за порядок в кабинете!
Популярно: Информатика
-
Ватрушкасмаком23.10.2022 12:08
-
Иван5465404.04.2020 18:48
-
barina20172007105.07.2020 21:48
-
Roma76543211216.02.2021 19:19
-
ghi316.03.2020 20:38
-
dinara16905.02.2021 09:48
-
123Emre16.04.2020 20:29
-
Angelina12332112332117.01.2020 04:02
-
Лази2117.03.2022 11:37
-
Kakazabra03.04.2023 11:02