program c1;
var a: array[-10..10] of integer;
i,j,k,s: integer
begin
for i=1 to 50 do begin
a[i]: =random(50)-20;
write(a[i]'');
end;
fur i: =1 to 50 do begin;
if a[i]mod=4 then k: =k+1;
if a[i]> 0 then s: =s+a(i);
end;
writeln(k=,k);
writeln('s=',s);
end.

Uses GraphABC;

const MaxShar=50;

type shar = record

           x,y:integer;

           dx,dy:integer;

           end;

var i:byte;

   x,y,r:integer;

   shars: array[1..MaxShar] of shar;

begin

randomize;

setwindowsize(500,500);

centerwindow;

r:=10;

setpenwidth(3);

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=7+r+random(500-2*r-14);

 y:=7+r+random(500-2*r-14);

 dx:=random(8) + 1;

 dy:=random(8) + 1;

end;

lockdrawing;

repeat

clearwindow;

for i:=1 to MaxShar do

with shars[i] do

begin

 x:=x+dx;

 if (x+r+dx>=493) or (x-r+dx<=7) then dx:=-dx;

 y:=y+dy;

 if (y+r+dy>=493) or (y-r+dy<=7) then dy:=-dy;

 setpencolor(clBlue);

 setbrushcolor(clBlue);

 circle(x,y,r);

end;

setpencolor(clBlack);

setpenwidth(3);

moveto(5,5);

lineto(495,5);

lineto(495,495);

lineto(5,495);

lineto(5,5);

sleep(1);

redraw;

until false;

end.

Примечание:

В конце программы есть команда sleep(), чем больше в ней значение, тем меньше скорость шариков. Также её можно просто убрать, тогда скорость будет максимальной.

#include <iostream>

#include <math.h>

#include <locale.h>

using namespace std;

void main()

{

setlocale(LC_ALL, "Russian");

int a=0, b=0;

bool pr;

while (a < 100)

{

 pr = false;

cout << "Введите координаты - x, y: ";

cin >> a >> b;

system("cls");

 for (int x = 1; x <= 3; x++)

 {

  for (int y = 6; y <= 8; y++)

  {

   if (a == x && b == y)

   {

    pr = true;

   }

  }

 }

 for (int x = 3; x <= 5; x++)

 {

  for (int y = 2; y <= 6; y++)

  {

   if (a == x && b == y)

   {

    pr = true;

   }

  }

 }

 for (int x = 5; x <= 7; x++)

 {

  for (int y = 6; y <= 8; y++)

  {

   if (a == x && b == y)

   {

    pr = true;

   }

  }

 }

 cout << pr << endl;

}

}