"Вводятся длина вектора, состоящего из целых чисел, и его элементы. С этим вектором произвести указанное действие и вывести результаты. Если используется "заданное число", то оно тоже вводится.
Действие: найти максимум среди чисел, в десятичной системе счисления оканчивающихся на 8."
Код программы еще не дописал, додумываю.
Добавлено спустя 2 часа 1 минуту 13 секунд:
Кажись осилил:
Вот так правильно получается, при любом раскладе:
- Код: Выделить всё
{найти максимум среди чисел, в десятичной системе счисления оканчивающихся на 8}
uses crt;
var
i,n,max:integer;
a:array[1..30]of integer;
begin
clrscr;
write('массив n=');
readln(n);
for i:=1 to n do
read(a[i]);
max:=-MaxInt;
for i:=1 to n do
if (Abs(a[i]) mod 10 = 8) and (a[i]>max) then max:=a[i];
if max=-MaxInt then writeln('нет чисел на 8')
else writeln('max= ',max);
Readkey
end.
Результаты:
массив n=5
1 2 3 4 5
нет чисел на 8
массив n=5
-10 -88 2 4 8
max= 8
массив n=5
-88 -8 -18 0 2
max= -8
массив n=5
89 -82 24 84 801
нет чисел на 8
Спасибо, всем кто помогал в решении задачи!