Заполнить массив случаными числами из промежутка 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.
begin забыли дописать, после инициализации переменных
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
