const
n = 3;
var
a: Array[1..n, 1..n] of Integer;
j, i, s: integer;
begin
Randomize;
Writeln('Случайная матрица:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(51) - 25;
Write(a[i, j]:5);
end;
Writeln
end;
for i := 1 to n do
begin
j := n + 1 - i;
s := s + a[i, j];
end;
Writeln('Сумма элементов побочной диагонали: ', s);
Readln
end.
Описать переменную-это значит указать её тип.
Я так поняла: это 2 числа в двоичной системе счисления,которых необходимо перемножить.
8бит=1байта
16бит=2байта
8*32*64*2=32768байт переводим в Кбайты 1Кбайт=1024байта
32768/1024=32Кбайт
Const nmax = 5;
var a:array [1..nmax] of integer;
i,k:integer;
begin
k:=0;
randomize;
for i:=1 to nmax do
begin
a[i]:=random(11)+10;
write (a[i],' ');
if a[i] mod 5 = 0 then inc(k);
end;
writeln;
writeln ('Kol-vo: ',k);
end.