1)
Uses crt, graphABC;
var a,c:real;
N,i,r,g,b:integer;
begin
circle(100,100,80);
read(N);
a:=0;
c:=360;
r:=5;g:=5;b:=5;
for i:=1 to N do begin
pie(100,100,80,a,c);
FloodFill(145,97,RGB(r,g,b));
c:=c-360/N;
r:=r+30;
g:=g+10;
b:=b+45;
end;
end.
2)
Uses crt, graphABC;
var N,i,x1,y1,x2,y2:integer;
begin
read(N);
x1:=350;
y1:=10;
x2:=360;
y2:=15;
for i:=1 to N do begin
randomize;
SetBrushColor(RGB(random(256),random(256),random(256)));
rectangle(x1,y1,x2,y2);
FillRect(x1,y1,x2,y2);
x1:=x1-5*i;
y1:=y2-1;
x2:=x2+5*i;
y2:=y2+i*5;
end;
end.
3)
var a,min,max,f:integer;
begin
f:=0;
Repeat
read(a);
if a<>0 then begin
if f=0 then begin
min:=a;
max:=a;
end else begin
if a<min then min:=a;
if a>max then max:=a;
end;
f:=f+1;
end;
UNTIL a=0;
Writeln(max*min);
end.
4)
var a,max1,max2,f:integer;
begin
f:=0;
Repeat
read(a);
if a<>0 then begin
if f=0 then begin
max1:=a;
end else
if f=1 then begin
if a<max1 then max2:=a else begin
max2:=max1;
max1:=a;
end;
end else begin
if a>max1 then max1:=a;
if (a>max2) and (a<=max1) then max2:=a;
end;
f:=f+1;
end;
UNTIL a=0;
Writeln(max1+max2);
end.
5)
var a,min1,min2,min3,f:integer;
begin
f:=0;
Repeat
read(a);
if a<>0 then begin
if f=0 then begin
min1:=a;
end else
if f=1 then begin
if a>min1 then min2:=a else begin
min2:=min1;
min1:=a;
end;
end else
if f=2 then begin
if (a>min1) and (a>min2) then min3:=a else if (a>=min1) and (a<=min2) then begin
min3:=min2;
min2:=a;
end else begin
min3:=min2;
min2:=min1;
min1:=a;
end;
end else begin
if a<min1 then begin
min3:=min2;
min2:=min1;
min1:=a; end else
if (a<min2) and (a>=min1) then begin
min3:=min2;
min2:=a;
end else
if (a>=min2) and(a<min3) then min3:=a;
end;
f:=f+1;
end;
UNTIL a=0;
Writeln((min1+min2+min3)/3:3:3);
end.
import random
matrix = []
subarray = []
dim_m = int(input("Input amount of rows"))
dim_n = int(input("Input amount of columns"))
rand_gen_top = int(input("Input random generation max value"))
rows_avg_list = []
cols_avg_list = []
rows_avg = 0
cols_avg = 0
for i in range(0, dim_n, 1):
for j in range(0, dim_m, 1):
subarray.append(random.randint(0, rand_gen_top))
rows_avg += subarray[j]
matrix.append(subarray)
rows_avg_list.append(rows_avg / dim_m)
subarray = []
rows_avg = 0
for j in range(0, dim_m, 1):
for i in range(0, dim_n, 1):
cols_avg += matrix[i][j]
cols_avg_list.append(cols_avg / dim_n)
cols_avg = 0
print("\nMatrix dimension m =", dim_m)
print("\nMatrix dimension n =", dim_n)
print("\nRange of random generated numbers from 0 to:", rand_gen_top)
print("\nMatrix A:\n")
for i in range(0, dim_m, 1):
print(matrix[i])
print("\nAverage in rows:", rows_avg_list)
print("\nAverage in columns:", cols_avg_list)