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

Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от -1000 до 1000 включительно. Опишите алгоритм, позволяющий найти и вывести минимальное значение среди отрицательных элементов массива, оканчивающихся на 3. Если таковых не имеется, вывести сообщение "Не найдено".

Разрешается использовать переменные j и min

Comments

30

---

А не написано

---

И ничего нет о самом "массиве"

---

Это у Вас не программа, а какой-то фрагмент

---

Начало программы уже дано в самом задании, меня просят написать продолжение.

---

Да, но я ведь его не вижу!

---

вот это что? a[i] j=a[i]

---

В конце строк с if нет питоновских двоеточий

---

Комментарий "съедает" половину написанного. Это было продолжение условия a[i]

---

потому что условие надо полностью публиковать в вопросе.

Answer 1

Var j, min: integer;
a: array [1..30] of integer;
begin
min:= 1001;
for j:=1 to 30 do
if (a[j]mod 10=3) and (a[j]min:= a[j]);
if min:= 1001
then writeln('Не найдено')
else writeln(min);
end.

Comments

Написано же в комментарии: ПИТОН !