9 клас АЛГОРИТМИ - одновимірні масив

Набір змінних одного типу, доступ до яких здійснюється за індексом

Послідовність елементів, що зберігаються в пам’яті під спільним ім’ям

Сукупність змінних різних типів

Об'єкт, що може містити елементи різних типів

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

var arr: list of integer;

var arr: array[0..9] of real;

var arr: integer[10];

1

0 або будь-яке задане значення

лише цілі числа

лише 0

Код правильний, оскільки індексація Memo1.Lines починається з 0, а i починається з 1, тому i-1 коректно отримує рядки.

Код некоректний, оскільки Memo1.Lines починається з 1, а не з 0, тому треба писати Memo1.Lines[i]

Код працює, але перед викликом StrToFloat варто перевіряти, чи Memo1.Lines[i-1] містить числове значення, інакше можливе виключення

Код помилковий, оскільки StrToFloat не може працювати зі Strings, потрібно використовувати Val()

var arr: array[1..5] of integer = (1, 2, 3, 4, 5);

var arr: array of integer = {1, 2, 3, 4, 5};

var i: integer;

begin

 for i := 1 to 5 do arr[i] := i * 2;

end;

arr[1..5] := (1, 2, 3, 4, 5);

for

repeat ... until

while

goto

Виникне помилка виконання (runtime error)

Програма може вийти за межі пам’яті та аварійно завершитися

Автоматично створиться новий елемент

Виведеться значення 0

arr[3] := 10;

arr(3) := 10;

arr[High(arr)] := 5;

arr.insert(3, 10);

max := arr[0]; for i := 1 to High(arr) do if arr[i] > max then max := arr[i];

max := MaxValue(arr);

for i := Low(arr) to High(arr) do if arr[i] > max then max := arr[i];

max := arr[High(arr)];

виведе 15

обчислить суму елементів масиву і виведе текст 15

Код не працює, тому що в Delphi/Pascal для задання масиву треба організовувати цикл

обчислить суму елементів масиву і виведе 10(від 0 до 4)

for i := Low(arr1) to High(arr1) do arr2[i] := arr1[i];

arr2 := arr1;

Move(arr1, arr2, SizeOf(arr1));

CopyArray(arr1, arr2);

found := False; for i := Low(arr) to High(arr) do if arr[i] = X then found := True;

if Pos(X, arr) > 0 then found := True;

if arr.Contains(X) then found := True;

found := arr.IndexOf(X) > -1;