#include <iostream>
using namespace std;
int main()
{
int sum = 0;
int composition = 1;
bool plusSeq = 1;
int n = 0;
cout << "Size array - ";
cin >> n;
int* a = new int[n];
for (int i = 0; i < n; i++)
{
a[i] = -10 + rand() % 21;
sum += a[i];
composition *= a[i];
cout << a[i] << " ";
}
for (int i = 0; i < n; i++)
{
if (a[i] < 0)
a[i] *= a[i];
}
for (int i = 1; i < n; i++)
{
if (a[i] < a[i - 1])
{
plusSeq = 0;
break;
}
}
if (plusSeq)
cout << "\nSum = " << sum;
else
cout << "\nComposition = " << composition;
delete[]a;
return 0;
}
Объяснение:
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(), чем больше в ней значение, тем меньше скорость шариков. Также её можно просто убрать, тогда скорость будет максимальной.