Вопрос по информатике:
Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от 0 до 10000 включительно. Опишите алгоритм, позволяющий найти и вывести максимальное значение среди двузначных элементов массива, не делящихся на 3. Если в исходном массиве нет элемента, значение которого является двузначным числом и при этом не кратно трём, то выведите сообщение «Не найдено». Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из описанных переменных.
const
N = 40;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i := 1 to N do
readln(a[i]);
...
end
- 01.01.2018 10:58
- Информатика
- remove_red_eye 19707
- thumb_up 37
Ответы и объяснения 1
N = 40;
var
a: array [1..N] of integer;
i, j, max: integer;
begin
for i := 1 to N do
begin a[i]:=random(200); write(a[i],' ');end;
//readln(a[i]);
writeln;
max:=0;
for i := 1 to N do
if (a[i]>9)and(a[i]<100)and(a[i] mod 30)and(a[i]>max)
then max:=a[i];
if max>0 then writeln('max = ',max)
else writeln('Не найдено');
end.
Пример:
32 42 155 33 159 73 194 51 173 175 176 154 70 67 194 159 63 33 81 183 54 166 75 196 150 165 61 162 54 196 182 195 124 133 76 191 197 69 125 118
max = 76
- 02.01.2018 18:00
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.