Табличні величини

Пронумерована сукупність значень, що мають спільне ім’я і тип

Сукупність рядків і стовпців

Великий обсяг інформації

Різнотипні величини, що мають спільне ім’я

var A: array[1...25] of integer;

var A: array[1..25] of integer;

var A: array[1..25] of real;

var A: integer;

integer

real

string

array[1..30] of string

Для введення даних

Для відображення заголовків, підписів інших елементів керування

Для редагування багаторядкового тексту

Для відображення малюнків

Memo1.Lines.Count

Memo1.Lines

Memo1.Clear

Memo1.Add

32

21

5

34

43

8

14

17

29

for i := 1 to 10 do if a[i]<0 then d := d * a[i];

for i := 1 to 10 do if a[i]<0 then a[i]:= 0;

for i := 1 to 10 do if a[i]<0 then k := k + 1;

for i := 1 to 10 do if a[i]<0 then s := s + a[i];

Визначення кількості додатних елементів масиву

Визначення найбільшого елемента масиву

Подвоєння значень елементів масиву

Заміна елементів масиву із певною властивістю

Занесення до числового масиву змісту рядків Memo1

Знаходження суми елементів масиву

Оголошення масиву 10 цілих чисел

Подвоєння значень елементів масиву

Шрифт графічного примітива

Стиль заповнення графічного примітива

Колір графічного примітива

Висоту графічного примітива

for i := 1 to 10 do s := s + a[i];

var a: array[1..10] of integer;

for i:=1 to n do a[i] := StrToInt(Memo1.Lines[i - 1]);

For i := 1 to 10 do А[i] := А[i]*2;

0

3

2

5

for i := 1 to 10 do if a[i]<0 then s := s + a[i];

for i := 1 to 10 do if a[i]<0 then a[i]:= 0;

for i := 1 to 10 do if a[i]<0 then k := k + 1;

for i := 1 to 10 do if a[i]<0 then d := d * a[i];

Memo2.Lines.Append(IntToStr);

Memo2.Lines(IntToStr(a[i]));

Memo.Lines.Append(IntToStr(a[i]));

Memo2.Lines.Append(IntToStr(a[i]));

Memo2.Lines.Append(a[i]);

Edit1.Text:='';

Label1.Caption:='';

Memo1.Clear;

Form1.Close;

ShowMessage('Роботу виконала');

array[1..30] of string

string

real

integer