const
n = 6;
var
i, j, k: integer;
a: array [1..6, 1..6] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then
a[i, j] := 1
else
a[i, j] := 0;
write(a[i, j]:3);
end;
writeln();
end;
end.
4) разговор по телефону, вы обмениваетесь данными с собеседником, двухсторонняя связь
Обычный массив: берем список покупок. Допустим, нужно купить молоко, хлеб, яйца, чай и мороженое. Всего покупок: 5. И мы перебираем каждую покупку. В массиве можно записать как: array [1..5], так как 5 покупок. То же молоко под цифрой 1, значит это 1 элемент массива. Чай будет 4 элементом массива.
Двухмерный массив: берем многоквартирный дом. В доме 3 этажа, на каждом этаже 4 квартиры. Соответственно этаж можно приравнять как array [1..3,1..4] 1..3 это количество этажей, 1..4 это кол-во квартир. Если в доме 3x4=12 этажей, то получается 12 элементов массива.
Так же, элементы массива могут быть как одинаковыми, так и разными, но чаще второе. (Пример: дан массив с двумя элементами. Первый элемент равен 5, второй 33)
Создать массив в Pascal:
В var напишите x:array [y..z] of what
x - название массива
y - начальная цифра массива (обычно 1, так и представим)
x - последняя цифра массива (представим как 10)
what - тип (integer, real и т.д.)
Найти значение массива и редактировать его:
a:=x[4]
Данным действием мы присваиваем 4 элемент массива для a.
x[4]:=b
Данным действием мы присваиваем b для 4 элемента массива.
Если что-то непонятно, задайте вопрос в комментарий. Постараюсь объяснить именно то, что вам непонятно.
18)а 19)а 20)б 38-55)а б в г д