Заполнить массив случаными числами из промежутка 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.
Заполнить массив случаными числами из промежутка 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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Проблема заключается в том, что цикл randomize должен находиться внутри блока begin-end, а также в том, что вы использовали двоеточие вместо точки с запятой после randomize. Вот исправленный код:
program dz2;const
n = 10;
var
a: array[1..n] of integer;
i, s: integer;
begin
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] >= 10) and (a[i] <= 99) and (a[i] mod 3 = 0) then
s := s + 1;
writeln('Количество двузначных чисел кратных 3: ', s);
end.