1) Напишите программу, которая в последовательности целых чисел определяет…

var b,i: integer; a: array[1… 10] of integer; beginfor i: =1 to 10 doreadln (a[i]); for i: =1 to 10 do beginif (a[i] mod 5=0) or (a[i] mod 7=0) or (a[i] div 10=1) or (a[i] mod 10=1) then b: =b+1; end; writeln (b); end. var b,c,i: integera: array[1… 10] of integer; beginfor i: =1 to 10 doreadln (a[i]); for i: =1 to 10 do beginif (a[i] mod 3=0) and (a[i] mod 2=0) and (a[i] div 10<>0) and (a[i] div 100=0) then begin b: =b+a[i]; c: =c+1; end; end; writeln (b/c); end;