Вкажіть, яка з перерахованих справа процедур малює на екрані: 1. Точку

a) PutPixel

2. Відрізок прямої

b) SetBKColor

3. Дугу

c) Arc

4. Прямокутник

d) Circle

5. Еліпс

e) Rectangle

6. Встановлює колір фону

f) Line

7. Коло

g) Ellipse

Question

Информатика: Вкажіть, яка з перерахованих справа процедур малює на екрані: 1. Точку a) PutPixel 2. Відрізок прямої b) SetBKColor 3. Дугу c) Arc 4. Прямокутник d) Circle 5. Еліпс e) Rectangle 6. Встановлює колір фону f) Line 7. Коло g) Ellipse​

KoNetik2020 · Accepted Answer

Const n=20;
type omas=array[1..n] of integer;
Procedure Del (var z:omas; k:byte);
var i:byte;
begin
for i:=k to n-1 do z[i]:=z[i+1];
z[n]:=0;
end;
var a:omas; i,b:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
b:=6;
i:=1;
while (i<=n)and(a[i]<>b) do i:=i+1;
if i<=n then
begin
Del(a,i);
writeln('Размерность массива = ',n-1);
for i:=1 to n-1 do write(a[i]:4);
writeln;
end else writeln('Массив не изменился');
end.
Пример:
12 13 6 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18
Размерность массива = 19
12 13 7 17 1 18 17 3 2 12 3 16 6 7 13 0 2 5 18

MOGZ ответил