Вопрос по информатике:
Дан целочисленный массив из 40 элементов элементы массива могут принимать целые значения от 0 до 10000 включительно позволяющий найти и вывести наименьший из элементов массива восьмиричная система
Пожаловаться
- 12.12.2017 10:00
- Информатика
- remove_red_eye 15569
- thumb_up 45
Ответы и объяснения 1
Var i,max:integer;
a:array[1..40]of integer;
begin
max:=-1;
writeln('Введите значения членов массива');
for i:=1 to 40 do begin
readln(a[i]);
if (a[i] mod 8 =7) and (a[i]>max) then max:=a[i];
end;
if (max-1) then writeln('Максимальное число:',max) else writeln('Чисел по заданному параметру нет');
end.
a:array[1..40]of integer;
begin
max:=-1;
writeln('Введите значения членов массива');
for i:=1 to 40 do begin
readln(a[i]);
if (a[i] mod 8 =7) and (a[i]>max) then max:=a[i];
end;
if (max-1) then writeln('Максимальное число:',max) else writeln('Чисел по заданному параметру нет');
end.
Пожаловаться
- 13.12.2017 04:42
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы