Чуваки у меня проблемы с программой паскальной
uses graphabc;
var x,y,d:integer;
procedure grib(x,y,d:integer);
begin
setbrushcolor(clrandom);
ellipse(x+d div 3, y, x+2*d div 3, y+d);
setbrushcolor(clrandom);
pie(x + d div 2, y + d div 3,
d div 3, 0, 180);
end;
begin
for var i:= 1 to 1000 do
begin
x:= random(400);
y:= random(200);
d:= random(150);
grib(x,y,d);
end;
end.
выдаёт, мол, ошибка времени исполнения: недопустимый параметр. вот на школьном компьютере всё было супер - хоть тысячу этих грибов создавай, хоть десять тысяч. а на домашнем спавнит до десяти единиц и всё, не знаю, как так жить
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]mod 2<>0 then k:=k+1;
writeln('Количество нечетных ',k);
end.
Тестовое решение:
10 -1 -1 3 5 -3 -6 -1 2 8
-5 -5 -3 -1 3 -8 -1 -1 -6 -2
2 -3 5 0 -1 -4 0 3 7 -8
-6 5 6 3 -8 -6 -4 10 -3 0
-5 -4 2 -6 -10 -2 -1 3 5 -7
2 -10 2 10 -8 2 4 9 -6 -1
7 1 3 -1 3 0 0 4 -3 -1
7 -1 -8 4 -8 -5 6 1 0 -9
7 8 9 3 0 -6 -8 6 0 0
0 -3 6 8 4 4 4 -8 1 0
Количество нечетных 45