Question

ВЫвести на экран все двузнычные числа кратные 3 и оканчивающиеся на 3.Найти их среднее арифметическое(Pascal)

Answer 1

uses crt;
const b = 10;
var x=0,y=0;integer;
a = array[10..b] of integer;
begin
for x:=0 to b do
...................................
if(a[i]mod3=0 and a[i]mod10=3) there begin
x:=x+1;
y:=y+a[i];end;
writeln(x,y);
end.