Это говорит о том что нужно менять винду на 10 пока она не стала платной
Uses crt;
Var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
readln (a[i]);
clrscr;
for i:=1 to 7 do begin
write (a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln (s);
end.
2кбайта = 2048 байт => 1символов = 1 байт
1 байт = 8 бит
2 ^ 8 = 256
K:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]<>0 then k:=k+1;