1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses GraphABC;
type point=record
x,y:integer;
end;
procedure plitk(x,y,r:integer);
var p:array[1..9]of point;
a,da:real;
i:byte;
begin
a:=pi/2;
da:=pi/4;
for i:=1 to 9 do
begin
p[i].x:=x+round(r*cos(a));
p[i].y:=y-round(r*sin(a));
a:=a+da;
end;
polygon(p,9);
end;
var r,i,j,x,y,d:integer;
begin
r:=20;
y:=r;
while y<=windowheight do
begin
x:=r;
while x<=windowwidth do
begin
plitk(x,y,r);
x:=x+2*r;
end;
y:=y+2*r
end;
end
1-Индексом элемента называется номер элемента в массиве
2-Массив данных имеет общее имя и один тип
3-Массив-это совокупность однотипных данных, хранящихся в последовательных ячейках памяти
4-В записи D[4]=3.5, D обозначает имя массива
5-можно назвать этот ряд:2.3, 5.7, 10.89.
6-правильно описание массива:D: array[1..5] of real
7-команда Randomize
8-Для заполнения массива путем ввода чисел с клавиатуры мы используем оператор Readln
9-Выводит N значений массива на экран
10-Sum:=sum+a(i)
11-Выбирает минимальный элемент массива
12-условие:If a[i]>0 then k:=k+1
13-значение суммы после выполнения следующего фрагмента программы равн.25
14-знач.суммы 21
15-знач.переменн.9
16-нельзя определить значение переменной
17-знач>перемен.6
18-знач.перемен. 2
19-знач.перемен.12
20-знач.перемен.6
