var a: array[1..5] of integer;
s: char;
min, i, j, k: integer;
begin
writeln('Введите массив:');
for i:=1 to 5 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 5 do
write(a[i], ' ');
writeln;
write('Введите символ (x, y, z): ');
readln(s);
if (s = 'x') or (s = 'X') then
begin
min := a[1];
k := 1;
for i:= 2 to 5 do
if min > a[i] then
begin
min:= a[i];
k:= i;
end;
writeln('Min = ', min, ', Index = ', k);
end;
if (s = 'y') or (s = 'Y') then
begin
for i:= 1 to 5 do
for j:= 1 to 4 do
if a[j] > a[j + 1] then
begin
k:= a[j];
a[j]:= a[j + 1];
a[j + 1]:= k;
end;
for i:=1 to 5 do
write(a[i], ' ');
writeln;
end;
if (s = 'z') or (s = 'Z') then
begin
for i:=1 to 5 do
k:= k + a[i];
writeln('Сумма = ', k);
end;
end.
Відповідь:
Пояснення:
Заповнення по периметру
from tkinter import *
import random
tk = Tk()
canvas = Canvas(tk, width=510, height=500)
canvas.pack()
kolory=["black", "red", "green", "blue", "yellow","orange"]
r=20
x=10
y=10
while x<490:
k=random.choice(kolory)
canvas.create_oval(x, y, x+r,y+r,fill=k, width=1)
x+=r
x=10
y=470
while x<490:
k=random.choice(kolory)
canvas.create_oval(x, y, x+r,y+r,fill=k, width=1)
x+=r
x=10
y=10
while y<490:
k=random.choice(kolory)
canvas.create_oval(x, y, x+r,y+r,fill=k, width=1)
y+=r
x=490
y=10
while y<490:
k=random.choice(kolory)
canvas.create_oval(x, y, x+r,y+r,fill=k, width=1)
y+=r
canvas.after(100)
canvas.update()
Заповнення по діагоналі:
from tkinter import *
import random
tk = Tk()
canvas = Canvas(tk, width=500, height=500)
canvas.pack()
kolory=["black", "red", "green", "blue", "yellow","orange"]
r=20
x=10
y=10
while x<490 and y<490 :
k=random.choice(kolory)
canvas.create_oval(x, y, x+r,y+r,fill=k, width=1)
x+=r
y+=r
canvas.after(100)
canvas.update()
