Из 20 чисел выбрать максимальное число оканчивающееся ** 3

Question

Из 20 чисел выбрать максимальное число оканчивающееся на 3

Answer 1

ВАРИАНТ 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, b: array [1..m] of integer;  
i, max_num: integer;

begin 
for i := 1 to m do    
Read(a[i]);  
for i := 1 to m do    
if (a[i] mod 10 = 3) then begin     
b[i] := a[i];   
end; 
max_num := b[1]; 
for i := 2 to m do   
if (b[i] > max_num) then      
max_num := b[i]; 
writeln('Max = ', max_num);
end.

Comments

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.