Программа должна выглядеть вот так:
program simvol;
const
n=5;
var
A:array[1..n,1 ..n]of integer;
i, j:integer;
Begin;
for i:=1 to n do
begin
for j:=1 to n do
begin
(A[i,j]):=random(100);
write(A[i,j]:4);
end;
writeln;
end;
end.
Вы не объявили переменные i и j, так же допустили сиснтаксические ошибки.
Ответ:
1)Байт, килобайт, мегабайт, гигабайт и т.д
2)Информационный объем сообщения это - кол-во двоичных символов, которое используется для кодирования этого сообщения.
3)Бит - это единица измерения количества информации.
4)Скорость передачи информации - это объем данных, передаваемый за единицу времени.
const a=1; d=1; n=100;
var s:real;
begin
s:=(2*a+d*(n-1))/2*n;
writeln ('Сумма числер равна ',s);
end.