Var a: array [0..10, 0..50] of integer; b: array [0..10] of integer; i, j: integer; begin for i := 0 to 10 do begin for j := 0 to 50 do begin a[i, j] := random(50); write(a[i, j]:3); end; writeln(); end; for i := 0 to 10 do for j := 0 to 50 do b[i] := b[i] + a[i, j]; for i := 0 to 10 do write(b[i], ' '); end.
Можно было, конечно, поменьше циклов, но так нагляднее будет =)
При измерении объемов информации есть определенные нюансы отличающие это измерение от привычных литров и килограммов. Так, чтобы зашифровать символ в популярной кодировке потребуется 8 сигналов (каждый из которых 1 или 0). Отдельно один этот сигнал будет называться бит. А одна такая последовательность, кодирующая один символ будет называться байт. Значит в 1 байте содержится 8 бит. Далее в каждой большей единице содержится 1024 меньшие единицы. Так, в 1 кб содержится 1024 байт= 8192 бит в 1 мб содержится 1024 кб = 1048576 байт = 8388608 бит в 1 гб содержится 1024 мб = 1048576 кб = 1073741824 байт = 8589934592 бит
program help;
var a,n,i: integer;
begin
read (a,n);
for i:=1 to n do
a:=a+n;
write (a)
end.