Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.
3) Наборы структур данных, используемых для управления файлами
Мощность алфавита - это количество символов, из которых состоит алфавит.
26 букв латинского *2= 52 символа и 5 основных знаков арифм операций = 52+5=57 символов -ответ
145139142130142
слово - СЛОВО
//Pascal`ик
var
arr: array[0..4, 0..4] of integer;
begin
for var i:=0 to 4 do
for var j:=0 to 4 do arr[i, j]:=readinteger('Введите элемент ');
for var i:=0 to 4 do
for var j:=0 to 4 do if i=j then print (arr[i, j]);
end.