[email protected] , ответ добавлен 18.05.2017 в 15:50

ВАРИАНТ 1
begin 
var a:=ArrRandom(20,1,100); 
a.Println; 
var tri:=a.Where(x->(x mod 10)=3); 
writeln(tri.Max);
end.

Ввод -     9 13 22 49 68 67 98 11 28 12 69 73 20 91 63 69 81 93 99 66
Вывод - 93

ВАРИАНТ 2
const
m = 20;
var 
a : array [1..m] of integer ; 
I,max_num : byte ; 
begin 
for i:=1 to m do 
Read (a[i]); 
max_num := a[1];
for i := 2 to m do
if (a[i] > max_num) and (a[i] mod 10 = 3) then 
max_num := a[i];
writeln ('Max = ',max_num);
end.

 0