Дан целочисленный массив из 40 элементов элементы массива могут принимать целые значения...

Question

Дан целочисленный массив из 40 элементов элементы массива могут принимать целые значения от 0 до 10000 включительно позволяющий найти и вывести наименьший из элементов массива восьмиричная система

Comments

составьте пожалуйста программу, или хотя бы программу, похожую на этомдан целочисленный массив из 40 элементов элементы массива могут принимать целые значения от 0 до 10000 включительно позволяющий найти и вывести наименьший из элементов массива восьмиричная система которого оканчивается на 7

---

вот дописал

---

как это восьмиричная система которого оканчивается на 7

---

если не сложно, не нужно с помощью супер сложных команд, учитель докопается)

---

восьмеричная запись*

---

ааа

---

Но баллов мог бы и по-больше дать

---

Задание не из легких

---

я просто в инфе шарю мне легко

---

я только зарегался на сайте, ниче не знаю, благодарю

Answer 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.

Comments

спасибо огромное, дружище!

---

Обращайся!

---

Если правильно лайк поставь