Заполнить массив случаными числами из промежутка 1-100 и определить их в массиве: количество двузначных чисел кратных 3 (pascal) я написал программу,но она не работает, в чем может быть проблема? program dz2; const n=10; var a: array[1..n] of integer; var i,s: integer; s: =0; randomize: for i: =1 to n do a[i]: =random(100)+1; for i: =1 to n do writeln(a[i]); for i: =1 to n do if a[i] mod 3 = 0 then s: =s+1 writeln(s); end.

margogalaxowa    3   14.08.2019 00:20    0